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Program LUtings In The Tmnfuictor 

AIL pro^nrm IMed In The TVmnctor wtLt appear m (hey would on your screen in Upper/Unver 
caae nude. 1k>dwtfy f«o poie«tf dwvtef mix-upft. MTOcs wUI appe^ 
wU] of courw be in lower caae SecorvUy, the bwcf cmk L (1'1 a a riraitftf line at oppOMd Id ihe 
nwnber 1 which has an M^ed top. 

Many prapams wM rarNaIn rrvmr vltko ch«raci«n th« r ep w en i curwr nwvemen ti . rokun, or 
hncMonheyt. These will abo be ihown exactly aaihrv would appear on your screen, tutthfy're 
tttied hef« lor ntercnce Alw remember CTRLxi withm quotes i» idMlW loaCunor Down. ei at. 



Oo M kormttf profrarMwfl conum Uneaihai sham omMHruiive^nca Often itte minber of ^m:t% 
you insert will not be crtkal to coTTfctapefalKNid the program. Whmi a, the required number ol 
ipice» wiU be riiown. For exaiqile 
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Our Last Newsstand Issue! 



h's been fusi fTVCT eigN yeais thai fve be&y making TVansdcton, and 
except for a ample al newriMeis bom Commodore wtken iheir HQ 
wmMdAJiu. ^rHluneorrwooutdComrnodoreiniipan.TheT was 
Ihe ftm COmmodofe penodicai. Al the time Gene BmIgs w» doing 
PET Usef Notes and Len Linrfsa>' was making The PET Gazette 
(which WGuU become COMPUTE* U^ttitie). But aside fmm the 
three, infomuikxi wai scares and the big gii>'s prinied Commodore 
reUled articles on occasion only . 

Then there was The expbsian, COMPUTE and Gazette had strong 
fcxjtholdi and Commodore staned [HjblLshing T^-o slick etk)rts ot Iheir 
own. Other i n tfependent publbhers blk)wed. But The TVan&actor 
wouU stay a humble newdetter lor another year On June 1 . 1962, 
almost five >-ear9 ago. IVansadot finally broke ou of its shril (o 
attnnpl the impoonble: compctitnn at the newsstand. 

I leanwd how to typewl in a morth. and shipped Volume 4. Issue 01 
to a handlull o( ma^zine rac ks (hdl Oct<jber Surpnsingly. wedidwetl 
- suTprWflg^tocauseTlieT wasslU )ust a newsMer/exce^ 
a Golouf cover and the articles were typeset instead of pnnled on the 
NEC I have to taugh when 1 leal through one of those oU issues. 
kirxb like kK>king al your first program in BASC i wasn t satisfied 
wtien an article didn I end at the bottom of a page, bltf at (he time 1 
dkln't have the sJuU to do better We store each issue on 256K. 8' 
floppies. Thai Tirst issue needed one - ttiis issue we went through fhrf 

Bui thi' inbrmaiKMi was solid aitd the Totonio area had a high 
concentration of technocrats kioking to assimilate ant/ disseminate In 
fad, the ronteni mav have be^i too solkl. 



Many things have happened over ttie years (which seem like 
months), and within a month another milestone will tie pimed. 
Myieir. Richard. Chrts and Nick have placed an oHer with our pareni 
company to purchase Transactor Put>lishing Inc. The ofler lias all but 
been signed We lalw possession after Ihis issue b shipped, and youli 
see that new addr ejui are on the back of our subscription card. Our 
new HQ is a 1 500 squwe loot unrt in a proiesstonal plua just North of 
ToroMo, and the buiiders shoukl be stanmg work on our Iwo^storey 
offce iayoil any day. 

Union unatel)'. the newsstarwl distribution business is pist too lough 
Standard payment terms are 120 dqrt from the "off-sale date Since 
we puUish once every two months, it takes 6 months from the day an 
issue is pressed to the day we receive payment for the last copy sokl 
Our printer wont wait that long, and between (he four of us, we can't 
fk>at that kind of rinancing. So unless we can find another method kx 
getting IVaa^actoTS to the magazine racks, this will be our last 
newviand appearance. 

However, the newsstafKJ sales do not generate a tot of revenue. Intact, 

they're not supposed to. That may sognd absurd, but like I said, 

newtand sates are supposed to generate subscriptions, A pubiishers 
main goal at the newsstand is to break even. Advertising rates are 
dnven by total s^es, and that's where the profll lies. Of course 
advertising revenue at The T actourKs lor only a small deposit al the 
bank. However. t)etween subscriptions, disks, and our arxillarx' 
products, income from CompuServe, and TPlXJ's regular purt has*.-, 
we've managed to do rather well. AND. we expect to continue doing 
well! 









The Utowing June we approached Master Media, a natkxial news- 
Hand distrt>uior. They were skeptical about shipping another com- 
puier title to potentially saturated shelves, but deckled to give us a go 
anyw^. Their VS. counterpart. Capitol Distributing, didn'l take us on 
for the same reason. But after Ihe Cwadian market showed sales 
steadily improving, they reccnsideied. In June '84. 16.000 Transac- 
tors wouW find their way to stands across the U5,. and some ewn to 
Europe. S,Amerlca. atid Australia. 

Orders cime piling in. Both Master Media and CapHof increased their 
onlers every issue arvj wouk) sell 50% of the copies or mote (30% 
sales at the newsstand is conMerad eaoellcnt b> publishers) The 
newsitaiKl pniu onSer peaked at 53.000. 

Naturally, the intent was to generate subscripttons - the mainstas- for 
an>^ ma^zine. They dkl increase, but leti short of expedaikxis. The 
'solkJ ' informalion we had to offer had a much smaller market than 
the gkj&sy full-cokKir uiMerfal from our competkors. However, we 
weie conlkleni that subscriptions wouM be generated by those 
advancing beyond ^mes and other pre-packaged hobbies. Thai 
happened too Bui a^n, llie proportiun of those who k>se interest 
compietdy is much greater than those wtto transcefid to a tascinatkxi 
with the science of compilers. 



There wfl be other changes, mostly cost cutting. The paper we print 
on is the second most expensive avaSaMe. We won't be regressing to 
newsprint or anything, but the familiar coated stock med in most 
publications actually oAs less, and ts more appeahng to adveri users 
Yep. advertisers. And if an>-one you know is inl eieHed In ad space, 
we're all ears! Even if interest is hi^. though. 1 guarantee al least a 
meg of type per 



But according to my calculainns, there's at least 25.000 of you 
listening to me blabber ngN now that are not currently subacrtNng. 
And we need your hdp. Besides, you won't be able to get Transactors 
any other way, they'll come right to >wjr door, and you'll be getting 
them lor less than they cost you now Our next issue will feature 
operaTing ^slems and it's fcxiking iite a good one. ft^rfhos, Aramts, 
D'Artagnan. and myself want to keep smastiing out Transactors, 
hopefully as much as >"ou want to keep getting them! So if you'veever 
considered subscrdxng before, now is the time! 




Karl J H. Hikfon. Editor in Chief 
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Using ^^VERIFIZER" 



The Transactors Foolproof Program Entry Method 



VCRIPIZFR sUMiId bt* fun before typing in any long progfam from the 
\it^ti at The TVaittacioT ll will IH you check y-uur wurk lint- b> line as 
you enter the program, and caich frustrating hping enore. The VFJtIFI- 
ZEft concept works by disptiying a nm-kett^r code lor each program 
line which you can check afpinsi the comspondin^ code in the 
lilting. 



TTiere aw frt-e versiora of VERIR2F.R here, one for PET/CBMs, VK or 
C&4, Phis 4,C]2a and BI28£riter the applkableprv^rani and RUN il- 
H you get a data or checksum error, re-check the program and keep 
trying until all goes wdJ. You shoukj SAVE the program, since you'll 
ymtt to uie H ever>- time you enter ooe of our programs, Once you've 
HUN the bader. remember to enter NE^W to purge BASH? ten apace. 
Then turn VERIFIZER on with: 

SYS634 10 enable the PET/CBMversKyi {oH SYS 637) 
SYS628 l0 6nat3letheC64/VlCversK>n (ofl SYS83n 
SYS 4096 10 enable the Plus 4 version (oft SYS 4099) 
SYS3072.ltoenatfethoC128versK)n (oft SYS 3072.0) 
BANK 15 SYS 1024 lor 8126 <off BANK 15 SYS 1027) 

Once VBHlFIZf^H is on. ev^ time you press RETURN on a program 
line a two-letter report code will appear on the top left of the screen in 
reverse liekl. Note that thew letters are muppeiOMe and will a^ipeer as 
graphks characters unless you are in upper/bwercase rnude (pma 
shifi/Commodore on C64/VIC). 

Note: If a report code IS mMng (or"— ")ii means we've edited thai 
line at the last minute whkh changes the report code. However, thb 
will only happen oocaAonaily and usually onty on REM statements. 

With VERIFIZER on. |usl enter the program Irom the nm^tme nor- 
mally, checkingeedt reportcodeafteryou presftR£TliRN onaline It 
the code doesn't match \^> with the letters prirKed in the box beskle the 
listing, you can re-check and correct (he line, then try afpin 11 you 
wish, you can LIST a range of lines, then type RETURN over each in 
wccanion while checking the report codes as they appear Once the 
pnigram has l»een properly entered, be s^jre to turn VERfFTZER irff with 

the S>'S indkuled above before you do an)ihjng ebe. 

VERinZER wilt catch transpostion errors like POKE 523S1.0 instead 
of POKE S3281.a However. VERIPIZER uses a "wei^ited checksum 
technique" fhaf can be boknl if you try hard enough, Iranspoaing two 
aels of 4 characters will produce the \ame report code but this should 
never happen short o( deiibenlely {venfjzer couki have been designed 
to be more complex, but the report codes wouM need to be bnger. and 
using it woukS be more trouble than checking code manually). VI^IFI- 
ZER ignores spaces, so you may add or omii spates from the listed 
prcigram at will (ptovkUng you don't split \xp keywords!), StaiMlard 
keyword abbrevMcMts (like nE instead of next) witl not allea the 
VERinZER report code. 



info; VK:/C64 VERIFIZER rcskles in the cassette buffer, so 
U you re using a d aiaict te be aware that tape operatnns can be 
dangerout to its health As far as compatibility wHh other uiiliti 
VERinZRR shoukin 1 cause any probtems since it works itirmjtjh flke 
BASIC warm-start Imk and jumps to the original dntinalkNi of the link 
idii-'T rs finished. When diiabM. il reaton the link to Us original 
contents. 



CI 
CF 
LI 
MC 
OH 
QK 
OG 
JO 
AF 
IN 
ON 
IB 
CK 
EB 
HE 
01 
JB 
PA 
HE 
EL 
LA 
Kl 
EB 
DM 



PET/CBM VERIRZER (BASIC 2,0 or 4.0) 

I0ren^*dalaloedertor 'vertfi2er4 0' • 

15 fern pet version 

20CS-0 

30 for I - 634 to 754 read a poke i.a 

40cs-cs-i'ane>cti 

50 

60 rfcsoi 5580 then pnnf* dalaerror- 

70femsys634 

aOerxl 

100 

1000 data 76.136. 

1010clata173. 164 

1020 data 145. 20V 



2.120.173. 163. 2, 
2, 133. 145. 88. 96, 
2.240. 16.141.164. 



1030datal44. 141. 163, 2.169.165, 133. 
1040 data 2.133.145, 68. 96. 85.226, 
1050data201. 13,208, 62.165.167,206. 
1060data254. 1.133,251,162. 0. 134. 
1070daia a 2.168,201, 32240, 15. 
1060daial65,253. 41, 3.133-254, 32, 

1090 data 196. 254. 16,249.232,152.208- 
1100data25l. 41. 15, 24.105-193.141. 

I110datal65,251, 74, 74. 74, 74. 24. 

1120datal4l, V 128.108.163. 2. 152, 

1130data25l. 133.251. 96 

VIC/C64 VERinZER 



133.1 
120,165 
2.165 
144.169 
165.217 

58. 173 
253. 189 
230.253 
236. 2 
229.165 
0,128 
105,193 

24. 101 



KE ' 


10 rem* data loader for 'venfizer' * 




JF 


15 rem VIC/64 versior 


i 




U 


20CS-0 






BE 


30 lori * 826 to 958 read apohe i.a 




DM 


40 cs - cs + a next 1 






GK 


50 






FH 




••••'; ei 


KP 


70 rem sys 628 






AF 


80 end 






IN 


100 






EC 


1000 data 76, 74. 


3.165.251.141. 2. 


3.165 


EP 


1010data252. 141. 


3. 3. 96.173. 3, 


3.201 


OC 


1020 data 3,240. 


17.133.252.173. 2. 


3..133 


MN 


1030 data 251, 169. 


99,141, 2. 3.169. 


3.141 


MG 


1040 data 3. 3. 


96.173.254. 1,133. 


89.162 


Dhl 


lOSOdata 0.160. 


0, 189 0. 2,240, 


22,201 


CA 


1060 data 32,240. 


15, 133, 91 200. 152, 


41, 3 


NG 


1070dalal33. 90. 


32, 183, 3.196. 90, 


16.249 


OK 


1080 data 232. 208. 229, 56, 32.240.255. 


169. 19 


AN 


1090data 32.210.255,169. 18. 32,210.255.165 


,GH 


llOOdata 69. 41, 


15. 24.105. 97. 32,210.255 


JC 


1l10datal65. W, 


74. 74. 74. 74, 24, 


105, 97 


EP 


1120 data 32.210, 255 169, 146. 32,210.255. 24 


I^H 


1130dtfa 32.240.255,108,251. 0.165. 


91. 24 


,BH 


1140dala101. 89. 


133. 69. 96 





goes, VIC/64 Double Vertflzer Sleven Watley. Sunnvntead. CA 



When uifaig 'VERIFIZER' with \onw TVs, the upper left comer of the 
ioeen is cut off. hkJtng the milizer-dHptayeil codes DCXmE VERI- 
RZER solves thai proUem b>' showing the two-lrtler verWief code on 
both the hrst and second raw of the TV screen. JuM run the t>elow 
program once the regular Vetifizer is activated. 



I 



My 1ft7: Voturne a, isaue 01 



1 00 lor ad - 679 to 720 read dapoke ad,da next ad 
n0&ys679 pr<m pfinl 

120 prmi * double venfizer activatod Vnew 
130dfltal20. 169. 180, 141. 20, 3 
140data169, 2. 141, 21. 3. 86 
150data96. 162. 0.189, 0,216 
160 data 157, 40,216.232,224, 2 
170 data 208 245, 162, 0. 189. 
leOdn 4,157, 40. 4,232.224 
190 data 2.208,245, 76. 49,234 



VERinZFRfbrTapeU 



Ton PottA. Rowtpv, MA 



The tolkmitiR modifuraijoas to ihe VerifuEPf loddpf wjII allow VIC and 64 
^^ wtf h DataKttei to UK Ihc V^tfiier dirtxily {wdhuui the backff}. 
AllCT running the new bader, you 11 have a special cop> oi the Verifuef 
program which can be kwJed Irom ta4>e without dtsTLipting the prcK 
i^raiiim memorv. Makethefollowingadditionsandchan^totheVIC/ 
64 VERtnZRR loader 

NB 30 tor 1-650 to 960 read a pokei.a 

AL 60 rfcs<>14821 then print" daiaerror Ver>d 

IB 70 rem 5ys650 on, $ysiB53 ofl 

— 60 delete line 

— 100 delete line 

OC lOOOdata 76. 96 3.165,251,141. 2. 3.1^ 
MO 1030data251 169 12V141, 2, 3 169, 3,141 

EG I070datel33. 90, 32,205, 3.198, 90. 16.249 

BD 2000 aS - ' verifjzer sysdSOlspace] ' 

KH 2010fOf)-850to960 

GL 2020 a$ - a$ ^ cnrVpeekO) next 

DC 2030 open r M ,aS close 1 

IP 2040 end 

^klw lOJN. pretang PUY and RECORD when prorr«»led 10 ck> «o(uwa 
rewound tape lor ea^ future atxeu). To use the special Verifizer that 
has last been created, first bad tfie program you wish to v^y or 
revje^' into your compulei from either tape or disk. Nexl insert Ihe tape 
created at)ove and be sure that It is rewound Then enter in direct 
mode OPENl CLOSEl Pre« PLAY when prompted by the computer. 
and wail while the spei.ial VenAzer bads into iht- tape butJer. Once 
baded. Ihe screen will show FOUND VERIFIZER.SYS8S0. To activate, 
enter SYS ftSO (not the 828 as in the original pmsram). To de^activate. 
use SYS 853 

If you are going to use tape to SAVE a program, you mutf de-activale 
I5Y5 853) sjnrp VF.RinZKR mows some of the internal pointers used 
durini? a SAVE operation Artempfing a SAVE wiihuut turning off 
VEKJHZER Unt will usuaJty result in a crash. II you wish to use 
VEKJHZKRaffain after using the tape, vou 11 have to reload i with the 
OPEM Cl/lSEl commands. 



r 



Nl 

PM 

EE 
NH 

Jl 

AP 

NP 

JC 

ID 

PL 

CA 

00 

LP 

EK 



01 


1140 data 20. 133.206. 


162. 0. 160. 0, 189 


LK 


llSOdaia 0, 2,201, 


48.144, 7,201, 56 


GJ 


1160 data 176, 3.232.208,242, 189. 0. 2 


ON 


Il70data240, 22.201, 


32,240. 15.133,210 


QJ 


Il80data200, 152, 41. 


3, 133,209. 32,113 


C8 


1190data 16. 198.209, 


16,249.232.206,229 


ca 


I200da1al65 208. 41, 


15, 24.105.193, 141 


PE 


12tOdata 0. 12.165, 


208. 74, 74. 74. 74 


oo 


1220data 24.105,193, 


141, 1. 12.106.211 


BA 


1230data 0, 165 210. 


24,101.206. 133,208 


BQ 


1240 data 96 





PK 

AK 

JK 

NH 

OG 

JP 

MP 

AG 

10 

OP 

MG 

HE 

LM 

JA 

El 

KJ 

OH 

JM 

KG 

EF 

CG 
EC 
AC 
JA 
CC 
BO 
PD 



C1 2B VERIFIZER (40 column mode) 

1000 tern •data loader for 'venlizercIZS* 

1010 rem* commodore c 128 version 

1020 rem • use m 40 column mode only! 

1030 cs-0 

1040(ori-3072lo32l4readx pot(e),x ch-ch + xnext 

1050rfch<>17860thenpr(ni 'cHechsumerror' slop 

1060prfnt 'sys 3072.1: rem to enebte' 

1070 print ■sys3072.0. remtodisaUe* 
1080 end 

1090data206. 11. 165.2S3. 141. 2, 3.165 
1100data254. 141. 3, 3. 96.173. 3. 3 
1110data201 12,240. 17.133,254.173, 2 
1120 data 3.133 253.169. 38.141. 2. 3 
1130data169. 12.141. 3. 3. 96.165. 22 
1 140 data 133. 250, 162, 0, 160. 0. 189. 
llSOdala 2.201, 48,144. 7.201, 58.176 
1160 data 3.232,208,242,189, 0. 2.240 
IITOdata 22,201. 32,240. 15,133,252.200 
t180data152, 41, 3,133,251. 32,135, 12 
1190datal9a 251, 16 249,232.206 229, 56 
1200data 32.240,255.169, 19. 32.210.255 
l2l0datalW, 18, 32,210,255,165,250, 41 
1220 data 15. 24,105,193. 32,210.255.165 
1230<Jata250, 74. 74, 74, 74, 24,105,193 
1240data 32,210,255,169,146, 32,210,255 
I250daia 24, 32 240,255,108,253, 0.165 
l260data2S2. 24.101.250.133.250. 96 






BI28VEREnZ£R 



bt-ih rVal, KWvvni, PA 



Plus 4 V£H1F1Z£R 

1 000 rem * data kMder lor ' verMzer 4 4 - 

1010 rem > corTwnodoreolus/4 verson 

I020graphc1:scrx:if graphcO rem make room lor code 

1030 cs*0 

1040 for J- 4096 to 4216 fsadjt pok6),x ch-ch^-M, twd 

10S0ifcr>O13l46thenpf(ni 'checksumerrof' stop 

1060pr<nt 'sys 4096 femtoeoaWe' 

1070 prmt 'sys 4099 rem lo disable' 

1060 end 

1090dala 76. 14, 16.165,211.141. 2. 3 

1100d«ta165. 212. 141. 3, 3. 96.173. 3 

inOdata 3,201. 16,240, 17,133.212.173 

ll20daia 2, 3.133,211,169, 39,141, 2 

1l30data 3.169. 16,141. 3. 3. 96,165 



1 remsave"ff0vefiti2efbi2e' 8 

10 rem* data toader for 'veiilk^er D128' • 

20 cs-0 

30 baf>k 15:ton- 1024 to 1 163 read a poke i.a 

40cs-cs+ar>exii • 

50 (1 cs<> 1 6828 then pnru '■• data etror •• r efKJ 
60 rem bank 15 sys 1024 

70 end 

lOOOdata 76. 14. 4.165,251,141.130. 2, 
1010datal41.131. 2. 96.173.130. 2,201. 
1020data 17.133.251.173.131, 2.133,252. 
1030datal41.130, 2,169, 4,141,131, 2. 
1040dala 1, 72,162. 1.134, 1.202.165. 
1050daia233. 32.118. 4,234,177,136,240. 
lOeOdaia 32.240. 15.133,235,232,138, 41. 
1070data234. 32,110, 4.198.234. 16 249, 
10a0dala230, 165, 233. 41. 15, 24.105.193, 
1090 data 206. 165, 233. 74, 74, 74. 74. 24. 
1l00dalal41. 1.208. 24,104,133, 1.108, 
1110daial65, 235, 24.101,233.133.233. 96, 
1120daial64. 137, 133, 133, 132. 134, 32. 38. 
1130data 32, 78,141.165.133. 56,229.136. 
1140dattl70. 170, 170. 170 



165,252 

39.240 

169, 39 

96.165 

27.133 

22.201 

3,133 

200,208 

141, 

105.193 

251. 

165.136 

186. 24 

166. 96 



Thelroraoctor 
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Cof an interesting prngmmming tip, short mutine. of an unttXKMun bit oi 
ComrTKMMirr trhiia? Send if in - if we use rt in the Bin cofumn. weV credit you m 
the cotumn and send yoti a free one-year's suhscription to The Transactor 



C-128 Easy Progrvm l^oMtlng 



Martin Mofhelnz 
SlockUm,CA 



When saving programs on disk, use xhe following procedure: 

dsave'Oprogram name<shrfl space>: 
This shows up in the direclcvy as: 



program name : 

(the shifted space ^kpws up as a quote) Now you can k>ad a 
programdirectlyfromadirectorydisplay- just run the cursor up 
the kt\ margin of the directory until you gel to ttie program you 
want to load, press <F2> and <retum>. and the program loads 
without any typmgf 

You can use the fename conunand to change the existing 
prc^rams on the disk to the new shift-space formal. 



C-I28 80-Co1uran 
Interrupt Routinea 



Stephane Laroche 
Ste-Foy, Quebec 



Have you ever had trouble programming the 8563 chip (80- 
column di^jlay controller) through an interrupt routine^ Due lo 
Ihe way you program this chip, you have to design an interrupt 
thai won't access the 8563 at the same time a prc^ram (or the 
buik-in 80-column screen editor) does, A clock that is displayed 
continuously on the SO-column screen is an exampte of a 
program that needs lo use such an interrupt. 

I found a clean way to resolve this probiem. You have to begin 
your interrupt routinr with these instructions: 

Ida SOI 07.x 

cmpfScO 

bcc UlRQ 

cmp#$<JO 

bcc HIRQ 
UlRO imp your interrupt' 
HIRQ jmp $ta65 



This will work nicely when you are using BASIC or the monitor. 
If you are running a niachinc language program, make sure that 
every read or write to the 8563 is made through the routines at 
$CDCC and iCDDA, 



C-128CAPS-lockqHjt 



Hal V. Weanl 
High Pont, North Carolina 



An undocumented feature of Ihe Commodore 1 28 is the q key 
that wit] not resportd to (tie caps lock ke>. The problem turns out 
simply to be the representation in the keyboard k>okup laUe 
used tor Ihe tetter q when the caps tock key is depressed. The 
vakjeofSSI isfound where a value of SDl shoukJ be. 

The cure Is simple, but it wUl require programming an EPROM. 
Rir this reason it is t>est that you are a technkaily jrwlined 
person wtio is comfortaUe with dismantling Ihe C-128 or have 
someone on hand who is. You will also need to have on hand a 
Promenade EPROM programmer and a working C-64 or C- 1 28 
for burning the chip. 

Ttie chip to remove and copy is U3S (r)exT to ilw? socket for Ifje 
internal function ROM). After the Promenade is made functional 
on the working comp^iter. copy the EPRf>\f U35 into computer 
mnnory with the Promenade command: 

£8192.24575.0.5 

After that operatk>n. check for an 81 wkh a peek(235S6) to be 
sure everything is in its proper place. Next, poke 23586 with 209 
and then burn a new chip wth 

118192,24575.0,57 

Install the new chip in the U35 socket and reassemble the C- 
128 You should now find Ihe case of caps kxk link' q solved 

Note I: The control word and program method word used with 
the Prontenade are Ifie ones that work fur the chips lound m 
most C-I28s. Check the Promenade manual to be sure of the 
proper codes. 






My iti7: vanawa •, 



Noie 2: If your C-128 should have 32k EPROMs instead c( 16k 
ones, a^usl Ihe addresses to copy the whole 32k le. 
81 92.40959 and poke 39970.209. 

Nuie 3 EPRUMs used are 27 1 28 ( 16k) or 27256 (32k). 32k chfps 
have not been found in any 128s here, Ihough the schematk: 
ihom k lo be des^ned lor 1 6 or 32k chips. 



C-128 BuUel-ProoT Wlndo^v» 



DJ. MorrUs 
Toronto, Ontmiio 



The windows on ihe C-128 have one (auU: they re loo Iragile, 
You get tf'nice prompt line atl set up. then you accklenlally hit 
HOME I WKP and the window is "smashed ' Here's how to iet m 
a pomanent window, at the boltom of the screen, 

1 Place the text that you want protected at the bottom o* Ihe 
screen; use any text a>k)ur5 that you like, and use as many 
lines as vou like. 

2 Place the cursor a few tines from the top of the screen. Press 
HS(' T to establish a wirKkjw. 

3. Enter POKE 237.23 to protect one line: for each addHnnri 
\ine protected, decrease the value poked b>' one, 

4. Cleaf the wiiKkm' wuh two HOMES. 

That's il. The bottom Une(s) ol the screen are now unlouchabte, 
even iJ new windows are set up and collapsed. Thb works in 
both 40- and 80-eohjmn mode, provkled you set t^ the 
pmected are in both screens. The protected area can be 
<iWereni fur the two screens. 



You begin the hookup as il you were going to hook your C-1 28 
to a 1702 monitor Rrst connect two shieUed wjRf to Ihe 9-pin 
WN plug. One wire goes to pin '1 or '2 (ground connections), 
the second wire goes to pin '7. the monochrome output. Ffain 
these two wires to the RF modulator coonecling the mono^ 
chrome output from pin 7 to the vkleo input, and the other line 
to the ground connection. If you are using a VIC RF modulator, 
open the case to find out where the connections should go - they 
are Labelled on the circuit board (the ground line connects to the 

ftsetl). 



After the vkleo and ground lines have been connected, all that 
remains is to connect power to the RF modulator. The power 
oonnectkms on the Radio Shack RF modulator are fairly slratght- 
fon^ard - connect them to to the power supply power outputs, 
observing polarity. On the VIC RF modulator, (he red wire is the 
"hot" (positive lead), and the case serves as ground (negative). 



Lastly, all that is necessary is to plug a shiekted cable from the 
RF output and run il to your TV/com[)uter switch, or directly to 
the TV antenna terminals. Turn the power on to the RF modula- 
tor and turn your computer on in 80-cohimn mode. 

For those a little more adventurous, you can tap the needed 
power directly from Ihe C-128. There are several kxations 
available where the needed 5 vohs can come from, jncluding. 
pin '2 from the user port, pin b-2 from the cassette port, and 
pin 7 from either joystick pod. It shouk) be kept in mind. 
however, that opening the case to make these connetlions will 
void any warranties, and so shouW not be done on a new 
machirw. 






C-126 80-Cohuiui 
Dfnplay on a Television 



Walton 
St. John, Nei%' Brunswick 



When I first purchased my C-128, one of the first ihin^ I 
wanted to try was Ihe CP/M mode 1 soon found that I needed 
the new operating system (Ihe modem support verskm) if I 

wanted to get very far with it at all At the time I dkf not have Ihe 
1902 80-cokjmn monitor and was in fact uiil^ a small cokxjr 

tele\'isk>n as a monitor I found that I was in a catch 22 situation. I 
needed 80 columns to use the program "cpmtefml28" (needed 
todoknk^ad the new op< rating s>-siem) and it only works in 80- 
column mode My solution at the time was not to run out and 
purchase a 1902 monitor, but to find a workable way to gel 80 
columns on my TV. 1 kHind a rafht^r simple and inexpensive way 

to do just thai and I thought 1 woukj pass it ak)ng to readers of the 
Transactor. 

All thai b needed is three rather inexpensive pieces of harxl- 
ware, which I have fisted bebw. and a couple of strips of scrap 
wire to connect it all together. 

I.9-p*n D-subminiature male plug (Radfo Shack part •275- 
1537) 

2. an RF-moduialof (Radio Shack part ' 277-221) (an oM VIC 
RF modulator works wril. its what I used) 

3. A 5 to 7 volt power supply (Rad*o Shack part • 273- 1 454) 



I found thai this solution was capable of producing a very good 
80-column screen consklering the equipment used and the fact 
you are using a television aa an output devk:e. Also I knmd Ihe 
hooki¥ was quick and easy to do and required no permanent 
changes to my computer 



1541 Half-TVack Fix 



Geoff Rob 
Victoria. Australia 



Disk read and write errors can arise when the drive gets stuck m 
between tracks from tolling programs that use half tracks as a 
means of copy profectk>n. Before sending v-oor drive away to be 
aligned, it is worth running the following short program that 
steps the head half a track: 

I0open15,8,15.'i0' 

20pnnt#15/m-w'chf$(254)chf$(2)chr$(l>chr$(t) 
30ciose15 end 

Line 20 writes a I to PHASE (tocalion $02FE). whkh is checked 
during each interrupt by the code in disk ROM at SF99C If the 

value of PHASE is 1 . then the routine increases PHASE to 2, and 
the head by half a track. 



Check b> valkJating a disk. If you get even more errors alter 
running this program, then you can just rerun the prapam to 
return to the initial slate. 



Iha 



My IM7: Volume a, 
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Thi' [>ris<-li^hlZmw 

WHt. \ wouldn't have believed ft unless it happened to me, and 
now it has. 

I w» having trouble with my 8050 drive 0. Loading prograim 
wai becoming a real bother, especially long ones. The error LED 
would llicker. and DOS would occasionally do a head-bump, 
creating for some rather lengthy waitr Program SAVEs or 
wnliiig dn SEQ file had become imtnissil^k- on drive 0. bul I 
managed lo cope, using drive I for nearly everything. 

When I pgured I could live without my 8050 for a while. I 
decided iiwas time to get her serviced. The ok) sweetheart weru 
almost 7 years withoul so much asa peek under the hood. I went 
in lu pick her up and was told, "we can't lind anythintj wrong 
with il^ Disregarding the somewhat impersonal reference, I 
immediatply be^n a process of elimination that lasted all the 
way home. 

'fouM I have been miMaken'^ Was 1 just imai^ining all TTit>&e 
read errors^ No. Maytje I just didn t hit her hafd eiKKigh at thome 
and whatever chip was loose got tarred on the way in. enough to 
make her start working again Maybe my diskettes were bad. 
No, they worked fine in drive 1. Oh well. Jorgel about it - its 
back to norma! now and I can get on with my next task." 

Or so I thougtu. I carted tier downstairs, set her up, connected 
the cat)les. dbk in. atxl Arghgh! It's doing the same thing a& 
before! 

I weni back fo Com mudore and watched as they tested it wit h no 
aftpareni problems. So what cuukJ it be? Xheck your environ- 
ment' . said Roy. Since I didn't have a better klea. that was what I 

woukl do. 

My S050 sits on a shelf to the left of a B&W monitor that's 
coniierted to one of my C&4V I moved the 80S0 as far left as I 
couM, and the monitor as far to the right as poiaMe. Like I sakJ. I 
wouMn't haN-e I>e1teved it unless ii happened to me. Just to be 
sure, I moved the monitor back up to the skle of ttie drive agun, 
and the read errors returned. Turn off the munilur. Mart a. 
LX)AD. . . ro problem until the instant I turned ttie mrniHor hack 
on. 

I don't know when it was that my monitor got too ckxe to the 
8050. or vk:e versa. All I do know is thai I wasted two round trips 
to Commodore, and counties tiours dealing with the abseiKe of 
the sometimes vital drive 0. Except k>r the aggravatkm. ttie 
exiKTtence was worth it and I'm glad I can pass it ak>ng. Even 
thou^ my troubles were with an 805U. I suspect any drive coukl 
fall prey to this situation. In fad tape, video, or any unit with a 
magnelk: ingredient U^ its operation coukl be affecled. 

My advkx? My advfce Is not really mine - credit goes to an 
astute Roy Robinson ofCommodoreCanada. Even il you havent 
moved your equipment, you might save yourself a pocentially 
expensive trip to your servk:e center by ^mply "checking your 
environment". E^)ecially if it's read errors from disk Try mov- 
ing your drive away from your monitor Tkry entering the com- 

Tha n<onaoclor 



mand. rum your monitor off, and then hit Return. Try changing 

rooms il you have to. Try your drive with a friend's system if you 
can. And if you eliminate the trouble, invoking it again is not 
only excellent reinforcement, but also gives you a feeling of 
accomplishment. Belteve me, I know. 

KaH Hikk>n. Editor-in-Chiel 



Otooire C-64 VAL bug 



Nick Sullivan 



The prize k>r the most obscure b^ in Commodore BASIC goes, 
we think, to a recently-discovered problem with the VAL func- 
IkHi- As you know. VAL returns the numeric value of an ASCII 
numeraJ string, and most of us have been taing it for years with 
no Trouble at all Yet the code h>r VAL contains a fundamental 
flaw that has been lying in wail for the tight luikIukkis to 
manifest itseU. 

Thoie cojHlUKjns were present in the second*lasl venion of ttie 
Help! program thai appeared in the IVansacior Volume 7 Issue 
6. By ifie time the bug was traced we were nearly ready to go to 
press, there was lime to correct the program, but not lo update 
the artkrie Hence there is a small but sii^nificant discreparvy 
between the text and the code. 

Here b whal the relevant part of the VAL routine k>oks like on 
the Commodore 64 (if you want to see ttie whokMhmg, it stans 
at SB7AD), By ttie time we get to the pan of ttie routine listed 
bek)w, the CHRGET pointer hat been saved, and CHRGET now 
tx)ints lo the start of the string t>eing evaluated. A pointer to the 
byte iust beyond the string has been set t^ in kxatkins $24/25. 
The "JSR $BCF3 ' at SB7DA invokes a routine Ihat converts a 
null-term ijiated string, accdted through CHRGET. toa floating 
point value in FAC 1: 



B7CF 
B7D1 
B7D3 
B7D4 

B7D5 
B7D7 

B7DA 

B7DD 

B7DE 

B7E0 

B7E2 



Fdy #$00 

Wa ($24).y 

ptia 

tya 

sta ($24).y 

jsr chrgol 

jsr Sbcf3 

pla 

Idy ffSOO 

sta ($24). y 



:get byte past end of string 

:saveit 

:replace it temporarriy 

-wtthO 

;lda with first byte of string 
;convert string to floating point 
:recover byte past end of string 

.put it tDack where it came from 
;restore chrget pointer and exit 




Okay, the strategy here is lo make ttie string temporarily null- 
terminated so that the mutine at SBCF3 will know when to stop, 
then restore the byte beyond the sfritkg once the conversk)n lo 
f bating point is done. This approach saves BASIC the extra time 
and trouble of making a separate null-terminated copy of ttie 
string somewhere else before doing ttie conversk>n. So do you 
see the bug? 

The Help! program used a l7-byte interrupt routine lo switch 
out the i/o chips and character RUM so that ttie code in the 
iDOOO FIAM coukl lest for a special ke>'press. This routine couM 
go anywfiere in RAM. but its default kM^ation was at the lop of 
BASIC, iust above string storage, ft was protected from being 

ji^m7:Vaiwnaa,tiMw^ 



in!rrt<'n>d wiih by BASIC by lowt^nnH the rop-o(-B-\5tC pointer 
by 17 bytes, a^ described in the ankle. This seeOKd like a 
complefety safe thing to do. 

And a was, unless you tiappciHxl to do a VAL on the first string 
created within a BASIC |m)grani. What happened then b that 
the VAL n^tine dro()ped a zero on the first twle of the IRQ 
iDuline to miil-terminale the string, then went i^f to convert it. 
While this was going on an interrupt would happen and the IRQ 
code, whk h now began with a (BRK) instead of a S7A (S£l) 
wODld be executed. This b a sure-fire crash. 

The solution. otKe ttie buij was identified, was simple enough 
we iust lowered the lop o( BASK; by 18 bytes instead of the 17 
needed by the IRQ routine, to give VAL the 1 byte of maneuver- 
ing room it required. And that is why the Help' article and the 
Help! program are not quite in agreement. 



G-Unk ROM Compare 



KarlHiklcKi 



Hey G-Link owners! Have any o( you been experiencing tlw 
odd glitch with your Glink? Well so have I and I decided it was 
time 10 find out why And to my complete surprise I found theie 
are at least Iwo verswns of the GUnk EPROM. 

In one version I've notkred that a simple SEQ file read can bomb 
before reaching (he end of the file. With the other I ve never seen 
the problem. I don't know why it happens, iust that it does and 
it's annoying I also don't krww why there are two versions, or 

how it happened. However, once 1 made all like EPROMs the 
same, the troubles went away. 

On Transaaor Disk '18 (for this tame) w^ U be including the G- 
Unk ROM fikstouU you wish tote-bum your EPROM.It'sa^K 
F'RG file and it LOADs to S2000. 

Tlic program betow will tell you if you need to do this update. 
You might think it kxjks rather kjng for suth a simple task. 
Actually Line 1 10 afone is enough to determine whk:h versfon 
you have. In fact, if you switch your Glink to parallel mode: 

print peek(57625) should give 1 73 

If not, you should probably conskier doing the update. Remem- 
ber. I sakl eariier that there are "at least" two verskms - there 
may be more, but I doubt it Regardless what value the above 
PEEK returns, the nexi part of the program will write the 
contents ol your Glink ROM to a disk file, and then proceed to 
compare il with tlie file ' f^link 3/87 S2000 ' on IVansactor Disk 
18. So unk?ss you ^ Disk 18. there's no point entering the 
whole program. 

Lastly. IVe notkred one other glUch. bui it very rarely occurs ^nd 
only with one program that not many will have or use. The 
utility that creates prf>gram listings with the Verifizer codes is 
called "proofgen". Quitt- simpiy. you load a program. UST it to 
dbk. then SYS to proofgen. The Verifizer code is calculated from 
the line in memory and written to an output file. Then the same 
Line is input from the disk lisung and sent to the output fik. 



S>>ini'iiiiit-<s ^liili' [>rt.>oti{en i-t making; Ihis file, ttie printer will 
SLjddenly tx^ome iUe output deslmatnn, printing exactly whai 
shoukj be going to disk. The problem here coukl be in the 
proofgen program, but it happens so rareh' that I can't help 
suspecting the Glink. If anyone has noticed a Mmilar problem, 
let us know and we'll go fooking for it. 



GUnk Compare: RUN In IEEE mode. 






LJ 
OO 

ON 

JP 

OH 

If^ 

MJ I 

FD 

KC I 

AN 

CL 

MB 

GP 

HL 

PM 

AH 

EM 

FO 

PN 

U 

HJ 
OL 
KK 
IvIH 
LE 
HL 
U 
HJ 
HP 
Ol 

LG 
LN 
AP 
HI 
OF 
IM 

OP 
PK 

EC 
Ml^ 
JH 
AB 
KD 



your g-lmk 



1 00 renn g-lmk rom comptre 
no If peeM57625)- 173 then print 

rom IS probably ok ' : goto 150 
120 print *| your g-link rom should be 

re-burned' 
130 print 'I with the g-link rom fife from 
140 print 'I transactor disk #1S 
ISOpnni 

1 60 pffnt ' if you would like to compare the 
1 70 print ' entire rom with the g-lmk rom 
1 60 pnnt * file on transactor disk 1 6. this 
1 90 print ' next test will write the contents 
200 print ' of your g-lmk rom to a disk file 
210 print ' and proceed to compare the two 
220 prmt * files, we suggest usmg transactor 
230 pnnt " disk 1 8 so that both files wai be 
240 print ' on the same diskette ' prmt 
250 input ' do you wish to continue (y/n) ' ;aS 
260 it asc(a$)<>S9 then end 
270 prmt . pnnt 'creating fife *my gtink rom' 
280 open 8,8.8/0 my gimk romp.w" 
290 printff8.chr$<0)chr$(32): rem make start 

address S2000 
300 for j - 57344 lo 61439 tem g-lmk range 

310 pnnt#e.chr$(peek<t»: 
320 next close 8 

330 pnnt 

340 print 'companng'glmk 3/87 $2000' 

350 print 'file with 'my glmk rom' f^le 
360 z$ - chr$(0) 

370 open 8,8,8/ Ogfmk 3/87 $2000.pT 
380 open 9,8,6, *0 my gImk rom.p.r 

390getf8.aS.a$ get#9.b$.b$ rem strip start 

addresses 
400for|-57344to61439 

4l0gelJr8,a$ a-st : rfaS- " ifienaS-zS 
420gel#9.b$ b-sl if b$- " ' thenb$-z$ 
430 if aS * bS then 470 
440X-X+1 ; prmt 'I difference at *:j 
450 print 'glink 3/87' :a3C(a$):tab(19)'my 

glink ■,asc(b$) 
460 print 

470 if a orb then 490 
480 next 

490 close 8 : close 9 
SOOpnni 'found';x/ diflarantfocations 

51 print ' glink 3/87 slatus at end ' a 
520 print ' my glink status at er>d: ' b 
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Input THckery 






Dsnlel J. Dyke 
Air.Maryfauid 



Here is a C-M subroutine Ihat r call before any input statemert 
requinng the use of puncluaiion and ihe cursor key^. 

lOgosubSOOO 
20tfVul«S 
SOpfmiaS 
40 goto 10 



+ w 



8000 poke 198.5: poke 631,34: poke 632.34 

8001 poke633,157: poke 634,32 poke 635.157 
$002 return 

The effect of this subroutine is that it prints iwu quotation marks, 
back spaces one space, erases the second quote with a space, 
and backspaces a^in. When Ihe data is entered. Ihe input 
prompt appears to be foltowed by a quotatjon mark. Now any 
keyboard character, induding punciuaiwn marks, can be en- 
tered as part of Ihe input data. What is also importam to note b 
that it alk)ws full use o* the kft and right cursor keys. The 
computer is not in quote mode, bu when the return key Is 
pressed, it thinks it is. 



C-«4 Efflrlent 
Kcyboftrd-Ctiecking in Aucmbler 



1M Beach 
ArUntftDo,VA 



Quite often we want to suspend Iprograms executk)n if the user 

presses a key Here is a v«y limpte way to do this. Wherever 
you need to pause the program, insert thiese two instructions: 

wajtkey bit Sc5 

bvc waitkey 

^^o registers are used, and only the flags are affected, so the 
instrucfkMis can be inserted almost anywhere. If you want to 
pause a program until Ihe user presses a key. use these instruc- 
tKms: 

iX)key bit $cS 

bvs nokey 



C-64 5croliing 
Banner Routine 



Andrew Miller 
Aabestoa, Quebec 



While experimenting with Ihe MID$ functfan on my C-64, I 
Gonttnided a scrolling ■fornuila" whkrh led to the folk>wjng 
program. 1 find it an attractive attention-grabber, and not bad for 
4 lines. After RUNning it and typing in your message, youU be 
asked for the viewing area (the number of charaden <d your 
metuee being displayed on the screen at a time). Your message 
will be automatically centred, and will begin to scroll Here it is: 

10 *npui ■ message ' .nn$: input ' viewing area* :va 

iprrnt'B ' b$-m$+^./ 
20 a - 1 8-len(m$V2 : if va < terHm$) then a - 20 - va/2 
30b$-ritfjt«b$.ierKb$hl) + left$(b$.1):c$-left$(b$.va) 

: print 'B 'tab(d)c$ 
40 for X - 1 to 70, next goto 30 



C-C4 Lfndocuniented Editing Mode Nick SullvMl 

HtR'sastrangelealiiiein the 64'sscreen editor If the high bM of 
the current character cokwr is set. like this: 

poke646,peek(646}or 128 

. . .the DEL key will take on a whole new personality in quote 
mode: if there is any text to Ihe right o( the cursor, it will be 
shifted one chancier to the left, and the character under the 

cursor will be deleted. There b one glitch, hotvever the first time 
you hit DEL under these conditkjns, a garbage reverse- 
character will be pruued. subsequent DEls will perform as 
de$crit>ed. 



Eaay Input Speedup 
from BASIC 



Eddie Andrrwm 
Orlando, Hortte 



Here b a sin^ trkk that will double your 1/0 throughput when 
doing GET'S from a disk file. Instead of doing a conventfonal 
GET* kxjp like this: 

4forj-1to80 
5 get#5.dS 
6r$-r$*a$ 
7next 

You can almost halve the time required by GET'lng two b>i€s 
with each GET' stalemenls. Like this: 

4torj-1lo40 

5get#5.a$,b$ 

erS.rS + aS-fbS 
7 next 



In my testing 
each of the 
prc^rams; 

VerAml 



I read 60 80-bytc strings from a 20 bkxrk file using 
above methods. Here b the full listing erf the 



Version 2 



K> 



1 Open 5.8.5. " daiat^le.s.f ' 

2torr-1to60 

3r$-"- 

4 for j * 1 to 80 

5oet#5.a$ 
6r$-r$ + a$ 
/next 
8 next 
9ck>$e5 

1 open 5.8.5, '0 dataMe.s.r' 

2 for 1 . 1 to 60 
3r$-"" 

4forj-1to40 
5get#5,a$,b$ 
6r$-f$4^aS4-b$ 
7next 

8 next 

9 close 5 
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The first version took 95 seconds to finish The second version 
took on ^ 49 seconds, I wentacoupieof steps further lo see how 
much tester the program could be made to run. Changing the 
pn^ram to read 4 byles « a time made it run in 44 aflcomb. 
Version thai read 8 and 16 byies at a time ran in 40 and 36 
seconds, respectively. 

The limes may be off by a second or so because I %ns timing the 
runs wHh a stopwatch Nevertheless it seems that the biggest 
gain can be had sjmply by GET^'ing two bytes instead of one on 
each GET' sialemem. 



10. The systematic loop-variaUe names gnatly help other peo- 
ple lo read and to grasp your programs, so it s very appropri- 
ate Jot published programs. Contributors, take heed) 

When you've completed a program, eliminate uniMd L*s from 
the DIM in line 110, and reverse the order of the used L's so that 
BASIC finds (he most time-sensiliw. inner-loop Ls first, for 
example, il you never used more than the six nested loops 
(which is typical), the hnat form would be: 

DIM L6.L5.L4X3.L2X1 



Loop* Variable Naming 



fve used this systematic loop-variable naming scheme for 
J-G. Krol several years. It's saved me so much time, effort, confusion. 
Anabebn, CmUfomla hustration, and grief that I wouldn't be without it. 



You can simplify FOR-.NEXT loop programming and speed up 

loop execution time by coding this line before creating any other Selective 

program variables: Scratching 



CnlgEde 

LpolU,MN 



1 10 DIM LI .L2.L3X4.L5X6.L7.L8.L9.LA.LB,LC.LDXE.LF 

Then as you write the programs: (I) use the lowest -numbered 
currently- unused L as the loop-variable for each new FOR- 
NEXT loop you begin writing: (2) don't use these Ls tor anything 
else. Whenever there are three active loops* lor example, the LI 
loop will be outermost, the L3 loop innermost 

This systematic loop-variable naming scheme, though simple, 
has many advantages over the usitat unplanned naming of loop 

variiUes. 

1 . The L-lor-loop nvnei an mnemonic, apt, short, dear, and 
consistent, and they're eifottkss to invoke when you need 
them. 

2. The yy stemalk naming scheme eliminates the dreaded blun- 
der d reusing an active loop-variable in another bop. thus 
wrecking the program. 

3. The scheme eliminates all the usual head-scratchincf and 
"creative " loop-variable naming aimed at avoiding that 
dreaded blunder, 

4. SirKe unneeded loop-variables are eliminated, the total 
number of variables is minimized, saving time arxj space. 

5. Loop-speed is maximized since BASIC finds the time- 
sensitive loof>-variabtes at the front of its variable-table. 

6. Loop-speed remains consistent no matter how many (hun- 
dreds of) variables you create after the Ls, 

7. The naming scheme provides a clear, convenient, consistent 
w^ of thinking and talking about your program. e.g. *1he LS 
k)op\ 

8. The systematic names greatly clarify program structure 
whenever you spot an L5 in a listing, you instantly know 
you're inside five active \oop% - no matter how obscure that 
CTflical fact might otherwise be. 

9. The systematic names often reveal program structure you 
weren't aware of. E.g. when you call a subroiMiDe from 
within an L3 kx)p. all of its loops must be L4 or higher - and 
they might not be, since you originally wrote the subroutine 
you are mvoking fn^m an LI k>op Realizing that, you can 
easil)' revise the subroutine. 



I recently changed word processors, moving from one which 
saves files in sequential formal toonewhkh normally saves files 
in program lormat. My word processing file disks soon became 
full of a mixture of different filetypes. In an effort to organize 
things I found out that it is possible to Mrratch all sequential files 
from a disk (retaining all other filetypes) by using the following 
disk command: 

open 15.8,15^ print^lS/sO-^-s": close 15 

All program filet can be scratched using: 

openl5.8.15:prinW15."sO:--p': close 15 

With a DOS wedge of some sort in place, the commarxis are 
simpler: 

OsO:* -s (for SEO files) or 
OsO --p (for PRG files) 

(A more selective scratch of tiles can be done by using a filename 
pattern other than the '•"). 

This has proven very ccmvenlent in helping me separate the files 
from my word processors, I make iwo back-up copies of the file 
disk and mass-scratch all the pn^am files from one and all the 
sequential files from the other It could also be used to delete 
tequentidl doc' files that are no k)nger needed on a disk of 
programs. Though I haven't tested it, 1 think this wUi work with 
user (USR) and relative (REL) files also (check on a back-up disk 
first). 

WARNING: Do wrt use the delete (DEL) (iletype with the 
wildcard as it will scratch ail files from your disk. The folk>wing 
is poison: 

#80:* -d Ipoison do not use) 
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Amiga BHs 



Amiga Automatk: 
Up-Date 



Andrew N. M«rclcr, Jr. 
Pope AFB, North Carolina 



The Amiga provides a very wdl maintained software dock, and 
itnce the Amiga runs a multitasking opiating system, the 
foiluwing short routine m^ be used to keep the time and date on 
your SYS: disk as current as possible. By writing to the disk once 
in a while, the time won t bi* Uxi far oft when you re-boot, since 
the system sets the time to wtten the disk was used last. 

Enter the fullowing comrnarHl file with an editor or by typing 
'copy • to 5:saveUale from the CU (press CTRL - \ to end your 
input If you use the copy command); 

cwajt 720 mins 

ccdsys: 

c dale>sys now 

c:fun >nii. 

c execute ssaveDato 



^4 J 



Execute the command file in the background by typing "run 
execute saveDate". The program will wait 720 minuf*^, or 12 
hours, Itien write the current date to disk and repeal the whole 
process over again. The wail uses no CPU lime as it runs in the 
background, since it iust waits fcir a flgnal from the timer device. 
If yoLi wish lo have the clock t^daied more or less IrequerHly, 
change the number of minutes in the first lirte to whatever you 
want - every hour might be a reasonable choice. 

Note: the CD command b used so thai DOS will put up a 
requester asking for the system disk if it is not \n the drive. The 
redundant use o( c: and s: is to ensure that the correct com- 
mands are used (in the case of like* named programs reskling in 
the current directory). 



Pbltem Matching With The Dir Com 



The CU command ''Dir". as documented in the Ami^DOS 
manual, has quite a ft-w ft- aiures. An especially valuable capabil- 
ity cd this conrniarKl. tiowever, isn't even documenled: pattern 
matching, Dir will albw an expfessk)n for a directory name like 
those used by the "PAT" option <A the List comrnaixi. and will 
display all Files in the directories that match the given pattern. 
So. tor example, the command 'dir ???' will display the files In all 
directories whoie name is three characters king; dir c^" will 
display all directories beginning with the letter *c': 'dir c|k)nts' 
will display the *c' and fonts" directories. 



Multiple- menu Selections 

When using the menus in most ap(^icalk>ns. you can choose 
rtwre than one menu option witliout pt>p[>ing up the menu lor 
each choice. While the mouse menu button is held down and the 
menu is displayed, move tlw pointer to the first option you want 
and click the LEFT mouse Ixjtton. Whilethe menu button ishekj 
down, you can move the pointer lo as many options as you wish, 



ciickmg the left button over the ones you want to select When 
you finally release the menu button, the prt^am will act as if 
you had selected each menu optkm normally, one at a time This 
is especially handy for menus with choices for many different 
modes or sellings, like a terminal program with optkKis lor 
parity, batxl rate, etc. Just clkrk - ctk:k - click to set up your 
choices without having to bring up the menu bar over and o\'er 
again. 

This technique slKXild work with most programs, i.e. those thai 
handle mouse events the way the Intuition manual advises. 




Speeding Up IFF FUe Acceu 

II you are reading an IFF file from your own program, you can 
speed up access and shorten the file by removing any chunks 
Ihat your program doesn't care about. Rx example, you maybe 
incorporating graphics in a program by creating an image using 
an IFF-compotible pairti program like Deluxe F^nt - the pkiure 
in IFF-ILBM form can then be read by yourpiogram using your 
own IFF-reading routines, or the staiKJard pubk domain rou- 
tines provkled by Electronk: Arts and listed in the Amiga ROM 
Kernel manual. 

This approach works fine, but there may be information in the 
pcture file that yotir program doesn't care about, and if you 
don t plan on using the picture Tiles for anything else, you m^ 
as well remove it. In thisexamr^, that of an ll£M Tile saved by 
Dehixe Paint, The obvious chunks to renxive are ibe CRNG 
chunks thai describe cokHjr-range information, and the GRAB 
chunk that defines a "hot-spot", or point for grabbing Ihe 
image. Removing these chunks saves the time needed for the 
IFF reader to skip over them, which can be conskJerable on 
fkippy drives due to read/write head seek time. 

To take the chunks out. you have to rerrxive them from tt)e Kle 
and modify the length of the FORM at the start of the file 
accordingly. You coukl write a simple prc^ram in the language of 
your chokre to do this, but the easiest w^ is lo use a text editor 
thai lets you edit a binary file as hex One such editor (perhaps 
the only one?) is Aedit by Joe Bostic (DRM Programs, 1329 
Arthur Ave.. Las Ve^. NV 89)01). it iets you read a binary file 
and displa>' it as hex and ASCII You can edit the hex values, and 
[\\try will be converted t>ack to binary when the file is saved 
Using Aedil. it is a simple matter to remove all the CRNG chunks 
and the GRAB chunk, leavint] just the initial FORM, the II^M, 
BMHD. and BODY The bngwurd after the mitial FORM will 
have to modified to reflect the new size of the file. For simple 
single-pklure IFF fiies, the FORM length should be eight bytes 
less than the size ol the fi)etfka|]pean in your directory (u^ng 
the CU list command). 

MinimLzing your IFF filei Hce this can yield dramatic reducliom 
tn reading time, especially for small Ttles. 
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Letters 



Wanted - Pliu/4 Technical Info: Can you or a tttder he^ 
nie?iwdnt aniemorv niap lor Ihe 6529 chip in the Plus/4, One 
like the exceitem Figure C-IO in Appendix C of Jim Builerfield's 
fine book Machine Lan^uo^ for Conimodope Machines wduM 
be ideal. 

Also, where and how can one get a copy of Ihe drcuil digram d 
Ihe Plus/4? "niai woukj be a big help in understanding the 
machine and in machine Tanguage programming. 

Jim Welch, Sama Clara, CdliJornia 

Wanted - an IMG tirtpper For tape: CongratuhBoni on 
your fine njagazine, which I have \usl discovered, "Downtoading 
From CompuServe " by Christopher Dunn (Vokime 7. Issue iX 
has certainly enlighicned me with a problem I have been 
encountering. 

r have been downloading with an XMODEM protocol lerminal 
prugjam on tape. The reason why Ihe IMG files have refused to 
run is now dear. 

V^ouW one of your technical staff, a contributor or reader be aWe 
to heip me? f wouW like to ottain a copy on lap*' of an XMODf-IM 
i futocoi tt^rrninaj ptc^ram few the Commodore 64 capable o( 
downkjading both BIN and IMG files with an IMG byte-stripper 
built inro the program altowmg IMG programs to run. Aiterna- 
tively. a iislmg of same woukl be most appreciated. 



My address is; 1 7 Sugarkiaf Drive. Chif nsKk Park, Victoria 3116, 
Australia. 

Philip Gahan 

We took a stab at your tAiemma, Philip, but quickty determined 
(hat without a sample copy of a tape, it woiildn t t>e wise to pnnt 
a program that strips an IMG hie header based on speculation. If 
you hear fmm scmeone that already has this program, then I 
fi^esswedonlneedtore-tni^ltheuheei i/}XHjdonlsendusa 

^fe With a BIN hie on one Side, and Q IMG f^ on the other, 
and well lalte another shot at it 



A lead on cables: A ponUe supvplier for letter writer Doug 
Hurd of Penricton. BfUish Columbia (Letters, Volume?. Issue 6K 
who needed ri^ angle connectoaami bng serial cables among 
other things, is Value Soft, of 9513 S.W. Barl)ur Boulevard M-56, 
Portland, Oregon 97219. They have an ad in Run ma^ne (3/ 
87) listing a 9-foot right angle serial caWe for $9.95 (US), 

Keep up the great work. The Transactor with the TPIXj insert 
has got to be the best deal anywhere lor Commcxlore freaks! 
Really enjoy the cover art. Volume 7, Issue 6, with the robot 
scu^ing a self -portrait, is perfect for an issue \*'ilh an attide on 
recursion - 



You. or your readers intenHed in recursion and Al. might want 
to k>ok al Douglas HoUadler s books: Godet, Escher, Bach and 
Mefatnaipcat Themas. 

John E. Graham. Director EMC. Sinclair College, Dayton. Ohk) 

Thanks for tht' lead. John And wed also tilfe to eruhr^ your 
recommendation of the Hofstadter booits. One of the things that 
disfirtguishfs H(jfsra<fter's A/ ax^rk from most others is lis em- 
phasis on the inleiiigence" in Al; he's invested m inteiligent 
machines. rxH just chver proqrams 



Another IEEE lor the 1 28: On page 1 4 of the March blue, in 
a reply to a letter from Bill Beiuieti, there was a request (ot 

information about a good IEEE imerfece lor the C- 1 28, The unit 
I am using is an INTEf?POD from England I have been using 
this unit, first with a C-64. and now with the C-128. without 
trouNes for the past three years. I use the INTERPOD with a 
four-pofe double-throw switch so I can go between the IEEE 
disk drives and the MSD^2 and 1 57 1 drives when using the C- 
128, 

I do not know if the unit is still available, I wrote a letter to the 
address in England about ordering another unit, but never 
received a reply. I purchased the unit from: Oxford Computer 
Systems {S<^tware) Ltd,. Kensington toad. Woodstock, Oxford 
England 0X7 IJR. 

John J. Schueler, K7QV. Sedona, Ariaom 



thimale fruslnHkm Bx: After months and months of playinj? 
Ultima IV (six to be exact). I finally made it into the Abyss. &Jt 
when I got there and had to answer the very fast question in ttte 
whofe game. I got it wrong It took me a couple of more months 
to figure out what was wrong: there is an error in the viskinsyou 
get when praying in the shrines. Instead of getting: 

JDU should get the folfowing: 

^f^I ft] + tl 

Now all of you who have been beating your brains out trying to 
figure this out (as I was) can finaliy get on lo your destiny! . . 

Paul Reeves, Hamilton, Ontario 

Ordinaniy we don t publish game tips, and this isn t meant to be 
a precedent (so put down your pens nght now) Bui the idea of 
Transactor readers beating thetr brums out fur want of tfiis 
information was more than we could stand. 
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BibUcvt Greek drills: U any of your readers would want some 
drilb on BiblicaJ Creek, have Ihem send me a disk with some- 
Ihing they think is really useful. educationaJ. or entertaining, 
and in exchange I will send ihem d disk wah the Greek on it. 
These are more than vocabulary drills Included are exercises 
on kJenfifying verbs, nouns (5 case system), participles, infini- 
tives, and adjectives on the book of I John. II Thes&alonians is 
the next book of the New Testament that will be covered. My 
address is: 23)1 Creswell Road. Bel Air, Maryland 210M. 

Daniel J. Dyke 



Hanlware book blurb: f wouU like to inform you readers of a 
book J have written which i believe may be o( irtteresl to them. 
Ertitled Etecrronk Computer Proffcts. it is published by COM- 
PUTE! PubUcatk)ns Inc. and is now available. 

Electronic Computer Projects is an introductfon to computer 
inlerfacjng and digital clc cl WMlk. s. It is written for users of the 
Commodore 64, VIC 20 and C- 1 28. as well as the eight-bit Atari 
computers. 

As a computer and etectronkrs hobbyist, I believe this book will 
be helpful to users who have done some exploring of their 
machines programming-wise and are kxiking for new. interest- 
ing and exciting things to do with their computers This book 
introduces the reader to computer control arvl monjtohng of 
Hems in "the outside workj" through the construction of projects 
consisting of a hardware and a software component While the 
protects are useful in themselves, they also provkJe a basts lor 
readers to begin designing circuits for projects of their own. 

The book is available from; COMPUTE! Books, RO. Box 5038, 
FDflStatbn, Now York. New York 10150 {toll free 1-800-346- 
6767: in New Yoric. 212'887-8525}; or in Canada from: 
McGraw-Hill Ryerson, Ltd.. 330 Progress Avenue. Scarborough, 
Ontario M I P 2Z5 The suggested retail price is $9.95 (US). 



Soori SivaVumaran. Burlington. OnUrio 



Grounding to a halt: Your issue on Gadgets and Gizmos 
implnd this letter I am an amateur radio operator, and use my 
0*64 mostly in connection with my radb hobby Some ntonths 
ago I bst a 6526 chip and had quJIe a bit o( tn^uble getting 
Mother from Commodore. 1 woukl like to caution your readers 
who are irtierconnecting their computers with other equipment 
about one ol the sneaky pri>blem5 that can spoil their fun. 

In my case. I have my 64 on the bench with my amateur radio 
equipment and general test equipment Rk safety s sake, one 
learns early to ground everything, so 1 have t»are copper wires 
running across the bench at several spots where they are out oi 
the way but easy to connect. All equipment b of course 
grounded. But originally not the Commodore, o( course. It has a 
154 1 . an 801 , and a monitor, all interconnected. And each plug 
has a ground: what more couM be needed? 



When I bought the monitor, my wife advised me to buy a cotour 
TV instead of a Commodore monitor, since we could also use it 
for another TV if the need ajose (not to mention how 1 would use 
a computer without a monitor!). Since she has been advising me 
wisely for thirty years (and 1 know where my buttered bread 
comes from) I bought the cokxir TV, a nice RCA 13 inch cokiur 
set. And it dkl well When I deckled to connect my Commodore 
as a terminal for my RTTY interface. I was afraid of damaging 
the CIA chip, so I careiully studied the diagrams, and finally 
deckled that a buffer was called for, to be absolutely iafe So f 
mounted a couple of 7404 TTL chips on a perl board, and with 
an edge connector on one skle and a socket wi the other it fit 
pcrfecUy on the USER interface, and was powered from the 
Commodore. With dbde clamping to TTL levels, and with the 
Commodore chip a CMOS (and able to lake 15 vdc). rH>fhing 
could get through that buffer and hurt my computer. 

Or so it seemed 1 connected the cable from the RTTY interface 
to the buffer turned the system on. and promptly burnt out two 
inputs on the CIA. The computer wouW still worlt for programs 
and games, but no more CompuServe! 

It's a good thing, although I dkJn't think so at the time, that It 

took two months to get a chip- I wis sure the buffer had failed 

me. After all, electronic equipment is untrustworthy in general. 

and sometimes tricky Using umfywm, oadUoicopes. and every 

technique I have learned over the years. 1 hunted for the elusive 

intermilteni that had damaged my baby Commodore. Nothing 

After a month of part-tin* testing I give up. Another month and 

the new chip came and 1 had had time to use my last resort 

technique, I thought about it. TTien I connected a voltmeter 

between the RTTY and the buffer inpu( (with no other connetv 

tk>ns) and turned on the radio. No potential difference, I then 

turned on the Commodore, the 1541. the 801, and the TV. 

When I switched on the TV. the voltmeter immediately jumped 

up to 30 vdc. And an okJ memory surfaced. SolkJ state tuners 

sometimes put out a dc voltage, which hurts them not at all and 

is not rK)tk:eable, but which is enou^ to raise the ground on the 

Commodore to the same voKage. Then if connected to other 

equipment which is truly ground^xl. you have a problem. The Ux 

is Simple. Be sure your Commodore system, when powered up, 

has no difference in ground pot»itial with the system you are 

conneaing into. Otherwise, you may, likt me, be waiting for a 
chip. 

I enpy your magazine generally, although many times your 
writers assume I know more about a subject than I do, and then I 
am lost and cannot follow what the>' are doing. Keep up the 
good work. You have the best magazine on the martlet, 

Carl L. Henry. Bowling Green. Kentucky 

Holes In !nr>eh Space: I \^-ouId like to take this opportumfy to 
thank yuu and your excellent staff for producing what is quue 
certainly the most useful book currently in print for Commodore 
computers The Compiete Commodore hner Space Anihohgy. 

Thanks for the COMAL memory maps: those are the only 
COMAL maps I've ever seen. AtkI yes, I even use the periodic 
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taUes! The WordpRMMriiV Reference Guide was ai5o a wonder- 
ful idea - even slightly more accurate than the PaperClip 
manual. I trust Speedscript commands will be included in 
Anthology II as well. 

As I am sure you altCidy kiiow, CCISA is not entirely complete. 
In Anthology II. 1 would appreciate a small section detailing 
physics formulae The current small section on forces is really 
only a start 

1 make regular use d both the unit conversion tables and the 
geometric volume tables, however, I noticed the omission of the 
universal volume equation from these fine tables: 

V-(T + 4M -I- B) xh/6 

T ■ Area at top 
M « Area at midpoint 
B - Area at base 
h m he»al^t 

This equation is particularly useful when dealing with insu- 
larly shaped figures, (In case one should ever happen to forget 
how to calculate the volume <A a frustum of a cone.) 

Kevin Smith. Edmonton, ARnrta 

Thanks for the input. Kevin. As yoa know, toe fry not to have 
anyihmg out. f^rhups you could send usaiisio/ //ipse physks 
fonrmhe you mention, or maybe Just a tisi of the results they 
produce so we could Feseanh ihem for you And if Qnyof}e etse 
has kkas tor Anthoh^ type into, we're always open hr 

SUi 



Structurtiig Baak: programs: I read with interest the artide 
"Slructured Programming on the Commodore SA" by Frank 
DiCioia (Volume 7. issue 5). I program on both large mainframe 
computers (for a living) and small micros (lor fun) and try to use 
the techniques ol top-down design and modular programming 
in both environments. 

While the extra structures (WHILE-WEND, REPEAT-UNTIL, 
CAIX-PROC) can help your prt^ram be more structured, it Is 
certainly possible to write structured Basic with just Basic 20 on 
the C-64. Top-down design is possible in most programming 
languages, and Basic is no exception. Modular programming is 
also possit)Je providing we follow the cardinal rule of "one entry, 
one exit" , This rule is what has given the GOTO a bad name. If 
we only use the GOTO to branch to the RETURN ot a COSUB or 
rhe NEXT of a FOR-NEXT (perhaps with a XTR - MAX" 
statement to make our FOR CTR - 1 TO MAX loop end nicely) 
we are in great shape The only other thing \o walch for is not 

emenag a GOSUB-RETURN module except tor one place: the 
top. 

If we need to go to one of several places after exking a module 
(processing one o( several types of input reconls read by a 
common read routine lor example) a "return code" can be set by 
the module to a value allowing an ON. . .GOSUB (not GOTO, 
?!) to direct us. This is the only problem I had with Mr 



DiGkrtas otherwise excellent article. Perhaps the EXIT nn 
keyword couW be modified to set a pseudo- variable (like ST) 
with ihe value of "nn" as well as exiting the structure normally- 
En this wj^ we could know that we wouM always come back to 
the point v« left when (kAn^ a CALL or (X)SUB and stiti have 
the flexibility to decide what to do when we get back. 

Douglas Hattrem. Lansing. Mkrhi^n 

FOG clarifies: The March 1987 issue contains an article 
entitled Xompatibility and Operabilky ol the C-128 CP/M + 
Operating Syslem by Ralph Morrill. As the leading interna- 
tiot^ user group provkJing support for CP/M. we at FOG were 
nMuratly pleased lo see the vastly under-expbred CP/M+ sk^ 

o(iheC-128beiiig brought to light. Thousands otC-128 owners 
have ioined our group seeking just the type of informatbn Mr. 
Morrill writes about 

One point of the artk:le needs explanation. Mr. Morrill writes. 
'"Not one piece oJ Osborne software from the First OsbcH^ne 
Crotqi's (FOG) publk domain lit>rary that I have acquired will 
run on the C-128 '* As a maner ol fact, the vast maiority of our 
current library runs on the C- 1 28. as UteMd to by our growing 
C-128 membership. FOG's library is tested, documented and 
well organized. Programs which are computer-specific are 
clearly labelled. 



Our library was once divided irUo computer-specific sections, 
includirm libraries fc>r Televkleo, Kaypro, Morrow and Osborne. 
It has come to our attention that disksdour old library are being 
sokl by some public domain software houses. Please warn your 
readers (and writers) that the reliability of the software acquired 
from many of ttiese sources is at best questionable. It is clear thai 
Mr. Morrill did not acquire his software from FOG. 

Another possible source of Mr Morrill's problem may be that the 
disks he tried were Osborne single density format. Our current 
library is on double density formal disks The 1571 drive will 
read Osborne iormai only if it is double density. 

I really wish Mr Morrill had called our office when he had a 
problem. FOG has a full-time techmcaj support staff to help our 
members. We certainly wouk} have made sure Mr Morrill had 
up to date informatk)n for his anide. 

FOG wdoomes C-128 owners to lain our ranks. Our awaid- 
winning FOGHORN newsletter is unmatched as a source of CP/ 
M informatkin. Our initial offer to C-1 28 owners of a free disk of 
CP/M software with membersfiip has been such a tremendous 
success that we have extended tt^ ufJer through December. 
Your readers may write to us for further infbrmatton at PO. Box 
3474. Daly City. California 94015-0474, USA. FOG is a non- 
profit corporalkm. 
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U Daly City, California 



Thank you Mr fbrsythef We've been waiting for a tetter like 
yours a long time. I'm sure many of our readers wUl take you up 
on your offer, espedatfy the ones that have prevfousty irkfimtd 
atxMJtjust such Q source of CP/M inhrmalion. 
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simplifying the raid: Say again,' t use relative files a lot, and 
thai occasional bug drives me crazy. I welcome Shlloh's Raid 
(January 19S7) buL I dual want to run an eight hour test, I just 
want the files to work. Tve speni 2 hours studying Ihe article and 
|u$t want something simple. Can you print just a small routine to 
be inserted when positioning to a record? 

Max Chapman^ Reix). Nevada 

Welt, maybe it was a tittk ayptk. Max. However, if oar 

calailotHtn^ are correct, the iuhnHjhm' t)ehu shtntld da the job 
for you. When you open your retattve file, set Ifte variables LF 
andSA to your file's hgicot file number and secorxlary address 
tespectit^ty. and set tfk* ixjnahk' L fo the fvcordtength of the /He^ 
You should also initialize to zero the variables SR. H and W, 
which are used irrtematty by the submutine. Before writing a 
relative record, jusi set the txinatft*' .\ to the record number you 
want, and call the routine with GOSOB 9000 Wtth this version 
you will hat>e to write lite whole record: positMtrjtng la mrd- 
record iS not supported. 

8970 rem position to relative record before write 
8960 rem from shiloh s raid (c) 1987 dav>d shiloh 
8990 rem adapted from the transactor voiunrw 7 issue 4 
9000 i*«r then n -sr + 1:r2-sr*2:r-2 

9010q-nH:ci%-q/254:q-q-q%-254 sr--q%*(l>q) 

9020 if sr Then sr - -q%»(q-l- 1 ) 

9030h%-rV256: k>-n-h%*256 

9040 rem po>nt twice and wart if needed 

9050 *f r then r-r-1: if q%-fl or q%-r2 then gosub 

9060: w- 162 

9060 pnntflf. 'p'chr$(sa)chr$(lo)chr$(h%)chr${0) 

9070 \i w then poke w,2: wait w.32. w - 

9080 return 



Double Density HR S*Pr f wish to express m\' thanks to Mr 
Bose (Letters. Volume 7. Issue 5) for his kindoomments on Hires 
Search and Print. His su^estkm to enhance the program's 
output with double density graphks is a good orte and I have 
taken it. Six bytes must be altered and eight more added to ttw 
program to effect the change. This b a simple fix in the source 
code, and I include the informaikjn here for those who entered 
the program this way. 

Under CKMOR: tell program to send 800 instead of 400 bytes for 
large print 

LDA #32 replaces IDA #1 44 

STA CODE + 2 replaces STA CODE + 2 
LDA #3 replaces LDAiH 

Under END: reser *igfe v.-ktth codes for 400 rather than 200 

b>ies 

LDA#1 (added code) 

STACODE+3 replaces STACODE+3 
LDA #144 replaces LDA #200 

Under NXTB>T: print each byte one more time to compensate 
for double density- Note: this change is required in two places 



within NXTBYT (ie. replace the two single "JSR CHROirTs with 
double JSR CHROLTr's) 

jIr CHrSuT '^"^^ JSR CHROUT 
Under CXJOL change printer codes from 200 Id 400 bytes per 



1 



line 



DFB27.76.144.1 replaces DFB 27.75.200,0 



Unfortunately, no easy change is available tor those using tlte 
BasK bader. QuUe a few DATA numbers change after re- 
assemNy due to address aherations caused by enlarging the 
program. For those. I have rewritten the Basic program to 
include the enhancmienl and have tomMted it as a generator 
rather than a foader This will cmlea disk-bas<^ object hie that 
foads rrujch qukrker arvl takes less disk space. If there's room, 
perhaps it can be irxrluded on the The Transactor Disk in a 
future issue. 

Jack R. Fkrrah. Cincinnati. Ohio 

Thanks for taking the trouble, JcKk. TlKMigfi there is unfortw 
rxitety not erKHJtih room in ttye moi^zirte to print the rteu 
program generator, the double detisity i^rstoti oi Hi-Res 5earifi 
and Print willirtdeedapfjearon Tkinsactor f^k ^I8(this issue). 



"ftal File" relocations The "Fist FUe" program (Volume 7. 
Issue -1) on page 6 contains an atfsolute |ump instructkm (JMP 
$C050) and is therefore not refocatable as written. 

The utKonditional jump can be transfurnked to a relative jump 
by replacement wkh: 

CLV 

BVC +7 

where "-t-?" is the ftusitive displacement of Ihe relative branch 
inslructfon. Make these changes in the original program: 

60 rf cO1 1584 then print " "data error' " stop 
180<lata 8, 76.249.224.132. 97.184. 80 
190 data 7.145. 53.200.196,252,144,232 

It wouW be nk» if Rick Nash furnished more informaiton 
concerning the undocumented parts of If^ SVS instructkin used 
in the program, abng with the source code to accompany the 
machine language data statements. 

I wouM like to see if it is possible to modify the 'Fast File" utility 
for use with COMAL0.I4. 

Lewis C. Brown. RowavttMi, Connectkrut 



A dissenting vote, for C Power: I vn a programmer, 
experienced m many languages. One of my favourite languages 
is C. I own a Commodore 64 and en)oy programming it because 
everything is so accessible with so little effort! T^ introdudkm 
at C compilers lor the C-64 was a great day ioj me. Naturally I 
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read with some interest Adam Herat's comixirison of C 
ers in Volume 7. Issue 5. and I »eei I must lake issue wilh sonie o( 
his cofKJusions. ] purchased both of the compiiers when they 
were if)Trodix:ed. and quickly deckled on the superior package - 
C Power. Mr. Herst decries several d]k?ged ihoficomings of C 
Riwer, and uhimaiety recommends Super C for novice to inter- 
^ mediate programmers, and says thai it is a toss-up for experi- 
enced prt^rainmers. This is unioriunate. I woukl like to address 
his conclusions indivklually and pro\k)e my own observations, 

Tirst. there is the question of documentalton, Mr. Herst lamented 
the lack of a tutorial in the C Powrr package, and the dearth o\ 
examples. I found (hal there i^ere sufficient examples trf ex-ery- 
thing. especially in L^ of the clear explanatk>ns given in the 
documenlarion Most (ompilers that I have purchased do nol 
come with language tuloriais. A compiler is a tool. It shouki 
contain inslrijctions on how <o use it, A tuforial is cxtia. (Word 
processorsdontconrain lessons on grammar, do [hey?) I lound 
the documentation thai accompanied C Power to be quite 
complefe and accurate. It is to Pro-Line's credit thaf The docu- 
mentation was dear and short. It seems to have been written for 
programmers, as it shouki be. I am able to Hnd answers to all my 
questions qukrkly and Ihe answers are matter-of-fact, nut tuto- 
rial in style. I like that. My copy of C Bower came with the C 
/Vimer/^5 book from SAMS. This is an excellent text, and 1 find 
that I use it as my primary C reference. Pro-Line did indeed drop 
the text in later releases but. as I sakl before, it was extra to begin 
wih. i did find Ihe C tutorial in the Super C package to be 
excellent. Indeed. I thought it was the best part of the package, 
but to condemn the C Power package because It does not 
contain a tutorial js missing the mark 

The lack of graphk's funcik)ns in C Power is unfoftunate, but 
they are ver>' easy to implement 0!lier%Msethe lilnary functions 
ue complete lor the vast majority d programmers. 

The linker options in C Power are much more flexible than those 
prxTvkled in Super C. You can link yotir C programs to be loaded 
and run as a Bask: file You can also link them to be loaded and 
run under the shell, with command line a^uments and i/o 
redirectkMi. You can also link them to a fixed address lo be 
initiated with a SYS command (for wedges and other nkre 
things). Super C programs must be executed from the Super C 
sheU. 

The one area that is most important to many programmers is 
execution speed. Hedoes mentk>n that C Pdwer has the edge in 
ihal category. HAS THE EDGE?????!!!! My verskwi o( the prime 
number sieve program took 1 1 times as tong with Super C 
compared to C Power. Eleven minutes compared to one mtnde. 
Super C code executes slower than compiled Basic. The one 
benchmark program that he gives results for is i/o intensive (a 
fUe conversion program). Thai is not a vaUd test of program 
executkKi speed. The 1 54 1 disk drive is the slowest drive on the 
market and the 1571 is not much bctier His program is limited 
b>' disk speed, not prc^ram execution speed. 

Last, let me comment on the overall feel ol the package The C 
Power shell is UNiX-like, in that it is command-line driven. 

Ihs Trofuoclov t 



alkiws k/o redirectkm. and some standard UNIX utilities are 
included. I like tf^ command iiuerface. 1 find it straiglatorward 
and (undionar Indeed, functkmal is my description o( Ihe 
overall package It is not flashy, il is not cute, it simply does what 
it says it will do. That is extremely important when writing 
programs, as ft albws me to concentrate on the program being 
written, not on the environnitni in whk:h 1 am writing. 

In conclusion. I can only recommend the C Power package. The 
non-standard format of the text files used by Super C. the fad 
that programs can only be run from Ihe rfwll. and the stow 
execulK-n tinK's nwke it the less desirable o( the two packages. 

Herb Rose. Oaie Oly. Virgmia 



C Converter for Super-C vl: I was happy to see Adam 
Herat's article on C for the C-M. 1 was beginning to wonder if 1 
was Ihe only C-64 owner working with the language. 

Unfortunately. 1 am using Super-C Version L Adam's file con- 
verter will not compile and link as written with that verskin. 

The changes necessary lo properly compile and link the pro- 
gram wilh Super-C v 1 are as folkiws: 

In main( ) 

1 ) 'include ' a stdio h ' to 'include ' sidio.c ' 

2) fgels(inbuff,2S4.inchan); to gels(mbuff .254.inchan)- 

3) status = EOF: to status = EOl; 

4) fpulMujtbutt. outchanj. lo puls(Qutbuff, outchan): 

In namefile( ) 

5) geiMiiame, 1 6); to geis(name, 1 63TDI0); 

lo 00nvert( ) and copybuf^ ) 

6) char inbuff; to char *inbuff: 

7) char outtnjff; to char •outbuff; 

Changes 6 and 7 occur because Super-C vl defines undimen- 
sioned arrays as having null elen)w«s, except where initial 
values are set at defuution. In the case ol the Convert program, 
moving elements between the null arra\^ produces an overflow 
error. Using pointers remedies the problem. 

Changes 1 through 5 are due to differences in the standard 
library. 

Thanks for a fine magazine, 

Terry D. Decker. Oklahoma City. Oldahonii 



Super C and the RAM disk: In reference to Adam Herst's 
article. A Tale ol Two Cs (Volume 7. Issue 5); 1 have taken the 
liberty of modifying his "Seq/Usr convert" program (for Super 
C) lo altow it to be used from the A or B disk drives or the liAM 
(H) disk, I also deleted the printing portion of the program as I 
found (his saved a k)f of time in the conversions. 
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Converting a 30 block file I got the following times; 

original (a: disk (o a: dtsk) 

with (lie printing 121 
new (a: orb: to a: orb:) 

no file print 0:46 

new (a: or b: to ram disk) 0:25 

new (ram disk lo a: or b:) 0:37 

new (ram disk lo ram disk) 0:18 

I feel that these times make it worth the trouble to copy the 
prc^ram to be converted to the RAM disk. 

In regard lo the RAM disk, 1 contacted Abacus Software and thcy 
provkled me with a program to increase the use of expansion 
RAM lo 128K. After experimenting with it for a while, I finally 
fcMind QUI how lo expand the RAM disk to 1985 bkxks or 
496.25K, using the blkiwing program: 

1 ^include "hstdio-h* 

2 file outchan; 

3 

4nnain() 

5i 

6 *(char-)0xed06-0x7e; 
7 

8 outchan-oper^lS. T5, "u:"); 

9 close (outchan): 
10) 

The following tiex numbers poked into Sed06 by line six of thai 
program resuhs in these configuralkins of the RAM disk: 

$30 737 bkxrks free (the expansion si^gMed by Abacus) 

»40 993 blocks free 

S60 1505 bkKks free 

t7e 1985 bkKks free 
$71 bk^ks free 

After S7f the count seetns to start back up again, ft is interesting 
to note that although at $71 ihe bkxrks hee were shown to be 
zero, nothing in the current RAM disk was erased. 

So much for the good news. We must now deal (again) with copy 
protect kin Wfwn ( tried to copy the Super C editor, compiler and 
linker to my big new RAM diskn I found I couW not. When 1 
asked Abacus why. I was toU because it was copy protected. , . 
They Slid there was nothing they coukj do about it. . » 

Welt, in my other C-128 mode. CP/M, a friend k>aned me hb 
MIX C Compiler to try. I went oul and bought it although I coukl 
have just copied it, as it was not copy protected. . . It woukl of 
course not fiave been much use without the very large manual 
that comes wilh the program. Super C woukl be even less use 
without its manual because of its non-standard features. So I 
guess the thing (o do now is go out and spend some more mone>' 
on a program breaker that will alkjw me to use the program I 
have already purchased in iheway ttshouMbeused. 



Or I can use MIX (which, by the way. is a very good implementa- 
tk>n of O. whkrh works beautihtlly on the RAM disk in CP/M. 

I wdl now get off the soap boxM hope all of this has been of some 
interest to you and the rest of your readers. 

Joe Faust. Lompoc. California 

(MAvftmoMriy. we don thaife space here for Joe's revision of the 
Convert prDgram. However, it wiUbemcfudedon the TVonsoctor 
dfsk forthi^ issue 



IVwiaBASIC graphing on one •crccn: The TransBASIC 
graphing module by F^ul Adams is the answer to a prayer - 
almost. The program I want lo use it in is so large that I just can't 
afford the luxury of two hi-res screens. Is it possible to modify 
the graphics routiries so that they only write to one screen and 
leave the other 9k available lo Basic? 

t don't have any Idea how big a project that wotik! be. I hope 
someone will lake it on. and I hope you will be inclined to print 
the changes in an early issue. 

The IVanactof is great. Please keep on doing what you're doing. 

E.D. Bemers. South Bend, Indiana 

ft fooks from tfie code as thoitgh the simpfest way to make the 
chon^e you want tnix)lves ottering exactly tour fir}es of code in 
tfw ohgirtal moduk. This is going to ieave you with a moduk 
that i& much larger than necessary (tt will siilt contain all rV 
rtow-redundant code to handle switching betwan If^e screens), 
but a wf}ofesale retvrite is unhrtunatefy beyond our resources. 
Here are tfie modiftcations you would haiie to matte. 

13002 ;sta{t4).y 

13038 Idx #3 

13502 f400 byte $8t,$48,$00,$00.$00 

15146 hrte wordSeOOO 

We sftould warn you that this set of chan^ is untested; 
fiouei^r. we ihmk ihey'H do the job tor you. Goodlucft. 



Bundling TransBASIC dUlccU: T woukj like lo get some 
instrudkxis for tfie use of TransBASIC. if 1 coukl. I ordered the 
package a few months ago from the TVansactor. and have found 
it a worthwhile, cosi-eflective program. However I do not 
understand how to link my own programs to the IVansBASIC 
dialect that I have used to write the prc^ram. 

First of all I must ex[rfain that I am not a hacker or a "techie": I 
am a high school English and history teacher a[Kl am interested 
in writing some simple software k)r use in my classes. I have 
found Basir 2.0 to be cumbersome, sol have been kwkini^ for a 
Basic extension that I can use with my program which would not 
have to be teaded prkw to k)ading my program. 



ItMTrantoctot 



Juty T9I7; Volunw i, ItMM 01 



Is it possible lo do this with TransBASIC? If so, could you explain 
to me in simple, layman's terms how to do it? I have read the 
manual several times and, as far as I can figure, I have to use the 
Datafier to make data statements. Beyond that, i have no idea 
what to do. 

Bob Irving, Brockville, Ontario 

After you hove assembled your TransBASIC dialect, and noted 
the hexadedmol start and end addresses of the object code as 
given by the assembler, you should hod and run the Datafier. 
After the run, your dialect will be in memory in the form of a 
loader subroutine beginning at line 9000 (you can renumber it if 
it will conflict with the Basic code you have written). 

The next step is to merge this subroutine with your Basic 
program. First save it to disk as a temporary file (e.g. SAVE 
TBTEMP" ,8). The easiest way to do the merge is with the ADD 
fast merge command on the TransBASIC dish. You can enable 
this command by loading and running the TransBASIC program 
again as though you were about to create a new dialect. Now 
load your Basic program and type, ADD " TBTEMF" . When 
you get your READY prompt back you should have both your 
original program and the Datafied dialect in memory as one 
program. All that remains is to add the following lines to the 
beginning of the program: 

1 ifpeek(773)<192goto3 

2 exit 
3gosub9000 

This will cause the custom dialect to be poked into memory and 
enabled on each run of the program. Save the modified program 
back to disk and you Ye done. 



Amiga music software shortage: 1 am a professional com- 
poser and musician, and the proud owner of an Amiga since 
October, 1985. 

When 1 purchased this computer, it was on the basis of the 
immense promise it held. The combination of power, expand- 
ability, and ease of operation in a multiiasking environment, 
with standardized storage of graphics, text and sound files to 
accommodate transfer between programs made the Amiga my 
obvious choice. 

Oh sure, 1 knew there would be a bit of a wait for the software. 
Programs like the complete rewrite of Roger Powell's 'Texture'' 
sequencer or the numerous other music packages from Cherry 
Lane Technologies might not arrive for a few months yet, . . but 
the wait was bound lo be worth it. 

Here I am, well over a year down the road. What have 1 got to 
show for my patience? Well, there's Activision's 'The Music 
Studio". Although not bad as a music toy, its laborious system for 
entry of notes (the Amiga version doesn't even allow you to use 
midi for this} makes their boas! of it being ''a professional- 
quality music composition looK' seem strange. Electronic Arts' 
^'Deluxe Music Construction Set" comes much closer to fulfilling 



that promise- The system it uses for placing notes on the staff is a 
lot more flexible. . . although it seems odd to me that they 
wouldn't use the even more elegant method established in the 
Macintosh version (where you place the note on the score, and 
then drag to the right to choose the timing value - what could be 
simpler?) 

I have the Mimelics "Soundscape Pro Midi Studio", As a multi- 
tasking work tool, this could be a big help to me some day, , , but 
at this point the sequencer section - which is what I have the 
most need of - is lacking in any of the sophisticated editing 
features most other sequencers coming on the market have. 
Still, 1 remain optimistic on this one. 

As an example of a clever music program which does the sort of 
ground-breaking things people were predicting for the Amiga, 
ail I have at this point is EA's "Instant Music". This is a 
wonderfully entertaining program, loads of fun at a parly. 
Although not really a composer's tool. 1 still applaud the authors 
for a job well done, I wish there were more music programs as 
imaginative. 

And while Tm wishing, here are some other wishes. Why is the 
Amiga the only major computer on the market today to not have: 

• a full-featured midi sequencer 

• a voice librarian, at least for the DX7, preferably for others, and 

• a visual editing program for the Mirage, 

Nothing would please me more than to hear that i am wrong, 

and that programs like these are available already. However, 
after many months of perusing the various computer and music 
related magazines with not so much as a rumour, it would be 
quite a surprise. So how about it. Does anybody have any 
surprises? 

Rob Bryanton. Regina, Saskatchewan 



More Superkit sorrows: 1 would like to add yet another voice 
to that of Roger Detaille, Therese, Quebec (Letters, Volume 7. 
Issue 5), 1 also purchased a copy of Superkit 1541 during the 
su mmer of 1 986, after reading your glowing review (your review 
is still 'glowing'!) I suffered some real problems with this pro- 
gram. Many of the functions did not work correctly, I have 
written two letters to Prism in Waco, and have never received 
any acknowledgement that 1 had even written! In short, "little 
boy, don't bother us", seemed to be their attitude. I realize that 
the program only cost $29.95, but one should receive some 
value for the money. 1 also realize that 1 am a 'hotdog eater' 
subscriber to Transactor. I notice that you have accepted adver- 
tising from Prism and suppose that that will make all reviews 
sound very good! I have written them twice, even about 
whether the new version, which 1 am supposed to be able to 
purchase for $10, was a significant improvement over the first 
version; complete silence! 

Another comment: the reply which you gave Mr, Detailie was 
the worst ''baloney" I've read in a long time! The line, "we don't 
think you'll be disappointed with the quality of Prism's afler- 
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sales suppor! to registered owners" is really off beam. They 
don't even answer letters to their ''registered owners". 

Another comment; on page 1 7, you seem to be orgasmic about 
the fact that CompuServe lets you upload without fee. Yes, but 
all those uploaded programs are downloaded at CompuServe's 
regular on-line charges, and become a source of 'free' materials 
which they, in turn, sell at a profit. Why don't you lell the whole 
story? 

You might think that I am a dissatisfied customer of Transactor, 
but I'm not! i love the magazine and would like to see it become 
(if it's not already) the ultimate Commodore mag in both coun- 
tries, I have dropped my subscriptions to some other ''junk" 
Commodore mags, subscribe to COMAL Today &. Disks and 
might try a Transactor Disk Subscription soon. I was upset about 
TPUG's handling of my subscription {6 months of no communi* 
cation) but hopefully that is resolved now. Keep up the good 
work and take a closer look at SuperKil 154L 1 have used 
FastHackem and DiSector, and both have done a better job for 
me on the same system. My two drives can't be that far out if 1 
have never had any problem; the alignment program also says 
so! 

Robert L. Manchester, HDE, East Aurora, New York 

That was a welcome change of pace in your tost paragraph, 
Robert. We 're sorry you've had trouble with SuperKit and with 
Prism, but anything you^ue read about them in this magazine 
has been strictly in good faith. It doesn 't surprise us when people 
have the odd problem with the SuperKit program - it is definitely 
sensitive to bad alignment, and probably to discrepancies in 
rotation speed, as well But on a good drive, our experience is 
that it works as advertised. As lor Prism 's support of users, most 
of what we hear is positive. But we don 't have any institutional 
relationship with Prism, and no inside knowledge of how they 
treat their customers. (By the way, what is a "hotdog eater 
subscriber' 7) 

If somebody at Prism would litie to respond to Robertas letter, 
we'd he glad to print that response, and interested to hear why 
his letters have gone unanswered. You there, Mr. Domengeaux? 

As for our not telling "the whole story" about CompuServe: 
you'll have to excuse us for not realizing that CompuServe 
charging for downloading time is a netvsworthy item. At one 
time, uploading programs to CompuServe was chargeable 
online time - and submissions were frequent. 

On reflection, we now realize that, by not making a point of this, 
we were being unfair to all those other world-wide online 
services who operate as public charities. Sorry, guys. 



Cap Meier 



TransBloopurz 



Norm Herman of Oregon City. Oregon, writes: 'The "Cap 
Meter" schematic in your January 1987 issue worked per- 
fectly. . . There was a small problem with the program, 
however. The calculation throughout was superb, but since 
two ranges of values calculated out in scientific notation, both 
employing the B, and since the ASC(P$) is 69 for both ranges, 
both came up as PR The E-03 had to be split off, which can 
be done by adding a line 565, thus: 

565 if pS^" 6-03" ttien print ".00"x$' uf : return 



Bits 



Shirley Karish of Hicksville, NY noted a slight error in last 
issue's bits section: '1n ''Printer output from an ML monitor", 
the very first line of the program should be LDX *$04 instead 
of LDA *$04. With that little change, she reports, it works 
just fine." 

N-Body Simulator on Transactor Disk 1 7 

The ''N-Body Simulator" program was fine as listed in the 
magazine, but the program on the Transactor Disk (disk 17) 
had a few problems: lines 220 and 2350 are missing and 
prevent the program from running- To correct the program, 
just LOAD it and enter these lines from the listing on page 33 
of Volume 7, Issue 6. 

Some Notes on Transactor Disk 1 7 

There are two PRG files on Disk 17 that have raised a couple 
of questions. ''ATOM" is loaded by ^'REVERSI". and 
^'ROCKET" is loaded by 'TENCE'^ Loading ATOM or 
ROCKET themselves Is meaningless. 

The N-Body Simulator program was submitted with ready-to- 
load files that wouldVe saved you from typing in the values 
from the charts. We regret not including these on Disk 17, so 
weVe decided to put them on Disk 1 8, along with some extra 
systems that weVe come up with ourselves. The tiles can be 
identified by the "NB^' sufhx, but don't enter the suffix when 
specifying the filename for a load. For convenience we'll put 
another copy of the simulator on Disk 18 too, 

A Two-Button Mouse 

Charles McCarthy from St. Paul MN, wrote with the following 
correction: "This concerns the nifty article about the C-1350 
mouse {volume 7, issue 6, pages 36-38). There is an error in 
the code for the procedure TEST on page 38: at BTNl +2, 
there should be an RTS, not a ,BYT $2c. The code as 
published will change the desired .Z-0 to .Z= 1 if location 
$01 A9 is zero, and will change the desired .N^ 1 to ,N = Oif 
bit 7 of $01 A9 is 0." 
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TeleColumn 



Transactor Online Conference 
Sunday, April 26, 8:00 PM EST 

on CompuServe. 
Subject: Writing Articles that 

GET PUBLISHED! 



We get dozens of articles every month, many we can't use. Why? 
The reasons come up as fast as the articles come in. But it 
doesn't have to be that way. Much of this is covered in our 
Transactor Writer's Guide, which was four years in the making 
{available free - send SASE). However, since printing the guide 
weVe acquired enough new cnteria for 'S6'ing an article lo make 

the next guide double the size of the first, and we're quite sure 
we'll find more- 

Al this conference we'll discuss everything from topic ideas to 
preparing the pacl^age. Typesetting is one of most major tasks, 
and many programs we receive are good, but too difficult to 
typeset. We'll discuss how you can adjust programs youVe 
already written to reduce our preparation efforts and increase 
your chances for seeing them in print. And if they make it into 
print, YOU get paid. . . and isn't thai what it's all about? Darn 
right. 

Never written an article before? Many articles we print are the 
author's first attempt. Writing is often easier than talking, 
because you have time to think about what you1l say. So if 
you've been considering a writing hobby for some extra cash, 
join us in this conference. Even if you're not planning to write 
computer related material, we'll help you put together a submis- 
sion that will be irresistible at any publication. 

The conference will be held in CBMCOM, The Commodore 
Communications Forum. Once on CompuServe, type ''GO 
CBMCOM'^ and enter ''CO" at the main function prompt. It starts 
at 8:00 PM EST on Sunday April 26, and myself, Rich, Chris and 
Nick will see you there! 

IVansactor Programs on CompuServe 

We're gradually getting ail of the TVansactor Disks uploaded to 
CompuServe, You can find them in Data Library 1 7 of CBMPRG, 



The Commodore Programming Forum. Data Library 16 of 
CBMPRG will contain all of the programs that have been 
published in the Bits section, and those few that have appeared 
in the Letters column. 

Since filenames on CompuServe are limited lo six characters 
(the extension will always be ^'.BIN*' ie. uploaded with Xmo- 
dem), they won't always be very descriptive. So unless you 
know the exact name we chose to upload the file, it might get 
difficult locating a specific program. Therefore, we carefully 
designed a format of keywords that makes them easy to find. 
Here's an example: 

V7 104 P70 JAN87 C64 TRACE44.SRC Hi RES TRACER PAL SOURCE 

The keywords start with the Volume, Issue, and Page numbers, 
followed by the date on the cover. The Page number is the page 
that the listing starts on. NOT the first page of the article. 

Next is the machine{s) the program will run on. Some programs 
will run on any machine, in which case this will be "BASIC". 
The exact name of the file as it appears on the TVansactor Disk 
comes next ("TRACE44-SRC"), and we suggest you use this 
name once it's downloaded to make it more identifiable when 
talking with others who have the program, but obtained it 
elsewhere. At the moment we're not sure how to show where 
the "exact hiename" ends, so this will be duplicated in the file 
description that is displayed below the keywords. Following the 
filename are some extra keywords that will describe the general 
purpose of the file if the filename leaves a little too much to the 
imagination. 

Now when you're reading a Transactor, and you just can't wait to 
get a copy of a program, sign on to CompuServe, ''GO 
CBMPRG", and enter DLl 7 at the main function prompt (DLl 6 
for Bits). If ''Mini-Tracer" is the program you want, as in the 
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above example, enter the following at the DL prompt: 

bro/key:v7 i04 p70 

. , .and the file should appear instantly- The above would show 
you the source file. If you only want the Loader, you would enter: 

bro/key:v7 104 p69 

Occasionally there may be two or three programs that start on 
the same page. If the one you want doesn't show up first, just 
keep hitting Return at the prompts and eventually it will. 

HOWEVER, please note that although the above is an accurate 
example, Mini-Tracer had not been uploaded as of this writing. 



The Magazine Display Area 

After starting work on the Display Area that weVe been men- 
tioning over the last four issues, we soon realized that if we were 
going to refer to programs from within the articles on the 
service, we should know what the name is before we refer to it. 
We could have chose names prior to uploading the programs, 
but then the articles would refer to files in the DLs that aren't yet 
there. So we decided that the programs should be safely in the 
DLs before we refer to them by name. When all the Transactor 
programs are uploaded, work will resume on the Display Area, 
which should be sometime in April. 



CAD30.BIN 



by Steve Nye [70366,1316] 



a drawing /drafting program for the Commodore 64 

Did you ever wish you could try out that new floorplan before 
moving all the furniture? Or print a map to your house for those 
out-of-town guests? Need to create a bar or pie chart for that 
sales meeting tomorrow? All this and more is available for the 
price of downloading from CompuServe's CBMART S[G, 

CAD is a drawing/drafting program for the Commodore 64. 
Originally designed to do electronic schematics, it has evolved 
into one of the most complete drawing packages available. The 
ease with which it is modified and expanded has allowed the 
users of the package to be major contributors to its development. 

Aside from the usual drawing functions (line, box, circle, erase^ 
etc.), there were from the outset three main requirements for the 
package, an easily expanded and modified command set, three 
hires screens resident in RAM. and the ability to access a library 
of pre-designed figures. 

The ease with which BASIC is modified made it the obvious 
choice for a programming language, but the lack of high resolu- 
tion commands had to be overcome. A package of USR calls 
from the old Commodore SIG, USRML, made it possible to access 
machine language routines for hires work while keeping the 
main structure of the program in BASIC. 



CAD is actually a package of eighty-three short programs. The 
command function programs are linked together by a command 
processor, and only one is loaded at a time. The use of linked 
programs keeps the amount of memory needed by BASIC to a 
minimum and allows a virtually unlimited command set. Since 
the CAD programs only need to pass numeric variables, the 
linking process is a simple one; it is only necessary to ensure 
that the first program loaded is the longest in the package. 

The pre-drawn figure access was a simple programming prob- 
lem. The figures are stored on disk as X and Y displacements 
from a reference point. When the figure is recalled, these 
displacements are added to the present position of the cursor 
and the pixel at that location is set. The size of the figure is 
limited to plus or minus 127 pixels and a total of 255 'on' pixels 
can be included in each figure. The number of figures on a disk 
is limited only by the number of available directory entries. 
Thanks to user support there are now over thirty figure libraries, 
including furniture for floorplans, USGS map symbols, electronic 
schematic symbols, plumbing hxtures, and a number of font sets 
for lettering hires screens. 

A package that has not received as much attention as CAD, but 
is closely related, is GRAPH. This package allows drawing high 
resolution pie charts, bar charts, and line plots. Using a dynamic 
keyboard technique it even allows graphing of a user-input 
equation. Since GRAPH initially boots the entire CAD support 
library, it is possible to move from GRAPH to CAD by simply 
changing the disk. This allows the user to modify, letter, and 
otherwise manipulate the graph. 

The CAD and GRAPH packages are available from CBMART 
Data Library 12 under the filenames CAD30,BIN and GRAPHV- 
.BIN, There are numerous support files, such as the figure sets, 
and a number of CADGames designed to be played using CAD, 
In fact, the support files for CAD became so numerous that now 
Data Library 12 is devoted exclusively to CAD. Support for the 
package is available through regularly scheduled conferences 
and the message section of the SIG, 



Another Online Odyssey 

by Marte Brengle, Glendale, CA 

Check out The Source and expand your online world. 

Ranjan Bose's article in the May '87 Transactor gave a good 
overview of three of the most popular national online services 
for Commodore owners. One other large national service whose 
name doesn't usually come up when one thinks of topics of 
interest to Commodore owners is The Source. 

In the past, The Source's target "audience" has been business- 
oriented and mostly IBM-using, rather than the kinds of people 
who use the "consumer" services provided by CompuServe or 
QuantumLink. That is changing these days, and a large factor 
influencing that change is the new Com mo do re- oriented Spe- 
cial Interest Group (SIG). Any of you who used to visit The 
Transactor on Viewtron may already be familiar with the folks 
who run the Commodore SIG on The Source. It's the Indepen- 
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dent Computer User Group (ICUG). the same crew who ran 
Speakeasy, Inner Works, and For Starters on Viewtron. 

The Source provides the same kinds of services as the other 
major networks - information, pubtic domain software, games, 
and the like - and has just added a real-time conferencing area, 
called Chat. Those of you who have used CompuServe's "CB 
Simulator" or any of the '^CO" areas in the Forums may find that 
Chat is even easier to use. 

CompuServe's interactive conferences are an exercise in mental 
gymnastics, unless you are using a terminal program with a split 
screen, since your messages can gel totally tangled up with 
other people's on the screen. One of the first things CIS CB users 
learn to do is press ctrl-V (repeatedly!) to straighten out their 
messages so they can see what they ve typed so far. No need to 
do that in Source Chat. Since The Source is accessed primarily 
through packet-switching networks like Telenet and Tymnet, a 
few simple keystrokes will take you back to "network level," 
switch you to half duplex, return to Chat and show you your own 
messages without their being overrun by everyone else's. And 
with Source's command structure, you can even set yourself up 
a "personal command key" (as was possible on Viewtron) to do 
all that "preparation" automatically as It takes you into Chat. 
(More about that in a moment.) It's like getting the best of 
QuantumUnk or PiayNET (each message is an entity unto itself 
and you don't have to unscramble them) with the best of the 
ASCII networks (no proprietary software required). And nicer 
still, you don't pay extra for using higher baud rates in Source 
Chat. It's billed at the 300 baud rate no matter how fast you 
choose to go (up to 2400 baud at present). 

The Source also features one of the most sophisticated 
"message- board" systems around, called Parlicipate(tm), You 
may be surprised at the kinds of things that are possible in 
Participate, or Parti as it's called. Much like CIS. messages follow 
each other in "threads", but on CIS. only the Sysops can move 
messages from one topic to another. Not so in Parti. Messages 
can be branched off, moved around, sent to other topics, used to 
begin new topics, or whatever your imagination desires - no 
special Sysop powers required. There are private topics on both 
CIS and Parti, but on Parti anyone can start one. and can invite 
anyone of his or her own choosing. 

One of the nicest things about the late, lamented Viewtron was 
that it allowed you to set up your own personal "command 
keys" to take you anywhere in the system. If you didn't feel like 
typing ICUGSIG SPEAKEASY every time, for example, you 
could program the combination =S to take you there. The 
Source lets you do the same thing. You can program as many 
commands into a sequence as you need, to get you anywhere on 
the system with just one keystroke, if you choose. Here's an 
example of one of my own custom keys. [Ve programmed the 
letter C to switch me to half duplex, take me into ICUGSIG Chat 
(the special Chat area run by the Commodore SIG), check to see 
who else is there, give me an "alias" (or "handle"), make sure I 
can see my own messages, and enter the ICUG Reception 
channel- The listing looks really complex when you see it on the 
screen, but it works like a charm: 



C term -halt; icug chat, 1015 -s-al marie -dime -j 31 

More complete instructions for setting up personal command 
keys are found in the Source manual, and also in Parti under the 
topic ^'Custom Keys." 

You can also set up a file to run automatically each time you sign 
onto The Source, if there are certain things you'd like to do every 
time you sign on, For example, my file turns my ''custom keys" 
on, and then checks to see what's in my mailbox. But that's not 
all you can do. Ever gel tired of seeing the system's ''what next'' 
prompts? You can reprogram even that to suit your mood. 
Instead of the standard ''arrow" that The Source uses for a 
Command Level prompt, I have it set up to say "What now?" 
And instead of the question-mark-and-arrow combination that 
means you made a mistake somewhere, my prompt says "Uh 
oh!" My sign-on file sets that up as well. You can find instruc- 
tions for all that in the Source manual under "Customizing The 
Command Level Prompt/' or in Parti in the "Custom Keys" 
topic. 

Although I've mentioned the Source manual several times here, 
and it is for the most part a good investment, the fastest way to 
hnd help for what you need to do on line is generally to ask 
someone. The Parh section in the manual, for example, Ls out of 
date (as is the Parti section in Charlie Bowen and Dave Peyton's 
excellent book "How to Get The Most Out Of The Source"). And 
ICUGSIG is a great place to find all kinds of help with using the 
system. There are quite a tew "help with Parti" topics set up 
under ICUGSIG Exchange in Parti, and the SIG also provides a 
"New User Survival Kit'' under the main SIG menu that's a gold 
mine of information. It covers such things as navigation com- 
mands, "how to download/ upload," how to use SourceMail, 
how to use the Members' Directory, and a complete and thor- 
ough tutorial on how to use Parti. And there's a new "Ask The 
Experts" section that's much like the one on Viewtron, where 
Commodore users can get information on hardware, software, 
or any other computer-related problem. 

You can upload to and download from the software libraries with 
a variety of protocols, including two variations on "capture 
buffer," Xmodem, Kermit, and, for Amiga users. Sliding Window 
Kermit in ATerm (which is also available for downloading from 
the ICUG library). 

ICUGSIG on The Source provides software, advice, and informa- 
tion for all Commodore computer users. There's a large library of 
C64, C128, and Amiga software, and a large group of sysops 
who can provide help with almost anything imaginable. You can 
recognize the Sysops online by their ID numbers, which all have 
a SIG prefix. The ICUG Sysops' ID numbers range from SIG015 
to SIG025, 

As Ranjan Bose's article pointed out, there is a wealth of 
information and services available online for Commodore own- 
ers. But it's not all on CompuServe and QuantumUnk! Check 
out The Source and expand your online world. 
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A Real Shuffle Subroutine 



Thomas W. Gurley 
Wills Point, Texas 






How many times have you ever played Blackjack where the deafer 
threw ail the cards up In the air and then picked them up in random 
order and dealt ihem out? Not very many, I'm sure. But that is just 
about the way most computer programs shuffle cards. The shuffle 
subroutine of the program uses a pseudo-random number genera- 
tor to rearrange the order of the cards each time they are dealt. On 
the other liand, a human dealer would not shuffle like that. He 
would divide the deck into two packets and riffle one half with the 
other. Most dealers will lei one to five cards fall from each packet 
until all the cards are riffled. He will then split the pack again and 
repeal the shuffle several limes. Each new deal thus depends {in a 
complicated way) upon all previous hands. 

The card shuffle subroutine presented here more nearly approxi- 
mates the actions of a human dealer 

This subroutine starts with a "fresh deck'' by assigning the order to 
the cards from 1 to 52 when first run. It then shuffles several times 
just as a real dealer would do. Before each new deal, the cards will 
be shuffled a random number of times from 3 to 1 3. You can change 
this feature (and others) to suit yourself. 

I wanted to analyze the game of Blackjack to find out why "runs'' 
seem to occur. In real-life Blackjack, the cards will sometimes hit in 
runs and eventually they will "patternize" so that one of the players 
(or the dealer) will always hit. It may require hundreds of deals 
before a "run" will occur but it will happen in total defiance of all 
logic. This subroutine will do exactly the same thing! 

All you need do to obtain more realistic hands is substitute this 
subroutine for the one currently being used in your card game. You 
will have to adjust the array names to match your program, but that 
should be easy. 

The Blackjack program 1 modified had two calls to a shuffle 
subroutine. It randomly filled an array with numbers from 1 to 52 
each time. It then went on to assign card values to the numbers in 
the arra. All that was necessary to implement the new shuffle 
subroutine was to put a GOSUB 8000 as the first line of the original 
randomizer and then jump past it (on return) to the "card value" 
routine. 

It works really well and the hands seem to appear more like those in 
real Blackjack games I've been in. 1 hope you can use this subrou- 
tine as well. 



JK 
PA 
AE 
EO 
Gl 
MM 



8000 rem **shuffle subroutine** 
8010 rem 8/27/86 

8020 rem **dimension arrays** 
8030 dim c%(52),c1(26),c2(26):rem (0) not used 
8040 print' it f1 to start" 

8050 if peek(l 97)<>4 then 8050: rem time is part 
of random factor 



AH 
MN 

IL 
BF 



CL 
ED 
EC 
EH 
FP 
N 



FE 
NF 

EC 
DB 
JB 
AD 
DM 
Fl 
KB 
MD 
EG 
FP 
AH 
OH 
LH 
MM 
HC 
CK 
AL 
GD 
EP 
JF 
BN 
CO 
JE 
OG 
AA 
ML 

JN 

HE 

Jl 

EE 



8060 rem set up tfie deck 

8070 forx =^ 1to52:c%(x) - x;next:formm = 1 tolO 

;gGSub8130:next 
8080 X = rnd(-ti);rem enter here for all subsequent 

shuffles 

8090 sh = int{10*rnd(x)-+-1) + 2; rem change the 

*10' to suit yourself 
8100 formm = 1 tosh:gosub8130:d = 0: rem shuffle 

random times 
81 10 next 

81 20 end: replace this with 'return' 
8130 rem **a real shuffle** 
8140c = 0;oa = 0:cb = 0:cc = 0:cd-0 
8150prfntV ..shuffle. , , .shuffle. .," 

8160 fori = 1to26;c1(i) = c%(i):c2(i) = c%(i + 26):next 
:rem split deck into two 

81 70 gosub8400:gosub8250:ffGb> = 26lhen8360 

8171 rem deal 1 st card from right packet so 1 si 
card changes (just like real!) 

81 80 gosubB400:gosub8200:ifca> = 26then8300 

8190goto8170 

8200 rem *'riffle cards from left half** 

821 fore = 1 tor:ca = ca + 1 :ifca>26thenc = 7:return 

8220cd = cd + 1 

8230c%(cd) = c1(ca) 

8240 next:return 

8250 rem**riffle cards from right half* • 

8260 fore = 1tor:cb^cb + 1:ifcb>26thenc = 5:return 
8270cd = cd+1 

8280 c%(cd) = c2(cb):next 
8290 return 

8300 rem **shuffle balance of left** 

831 fore = cblo26:cb = cb + 1 : if cb>26lhen return 

8320 cd - cd -f- 1 

8330 c%(cd) = c2(cb): next 

8340 return 

8350 rem **shuffle balance of right** 

8360 fore = cato26:ca = ca+1:ifca>26lhenreturn 
8370cd = cd+-1 

8380c%(cd) = c1(ca):next 

8390 return 

8400x = rnd(-ti) 

8410r = 4*rnd(x)+1 

8420 return 

9000 rem •*^this is for you to verify 

there is one and only one of each 
9010 rem number in the array c%(x). 

use ^goto 9000' and note that 
9020 rem each left hand number occurs 

once only. 

9030forx = 1to56:forjj = lto52:ifc%(jj)-xthen 
printx;jj 

9040 next: next:end 
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Function Manipulation: 
Roots and Integrals 



Eric Giguere 
Waterloo, Ontario 



One of Ihe computer's strongest points is its mathematical 
prowess, in terms of speed alone, computers have revolution- 
ized modern mathematics. Things which used to be drudgery 
for human mathematicians are handled without complaint by a 
properly pro^grammed computer. The following article deals with 
two useful applications of computers: estimation of function 
roots and integrals. 

Roots 

A function is a way of expressing the fact that one quantity 
depends upon another. By definition, the dependent quantity 
must be unique. We usually see a function expressed in the 
form: 

f(x) = X + 1 

For a certain value of x, out pops another value, in this case 
x+ I. If the function is to be plotted, we may see it expressed in 
the following form: 

y = X + 1 

Thus given a point x, we can find a related point y and plot the 

corresponding coordinate on a graph such as the one in Figure 

la. 
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Figure la: The Catesian Coordinate System 



A root or zero of a function is defined as the point where the 
function is zero, or where the graph of the function crosses the 
X-axis. A function may have one root, several roots, or no roots. 
The function y = x-i-l has a root at the point x = -l. since y = (- 
l)+ 1 ^0. But a function such as y-x^+ 1 has no root, since y 
will never be zero no matter what value of x we choose. 

There are times when it is useful to know where the roots of a 
function are, if it has any. Some functions are particularly easy in 
this respect, but others are a lot harder. This is where the 



computer comes in. Several methods have been perfected over 
the years to yield accurate root estimates for a given function. 
The one I will be presenting you with is called the bisection 
method. 

BISECT 

The idea behind the bisection method is very simple. Take a 
function f(x) that has a root somewhere in the interval [A,B] 
(that is, it has a root at a point x such that A <= X <= B), as in 
Figure lb. We then divide this interval into two equal subinter- 
vals and throw away the sub interval that doesn't contain the 
root {see Figure Ic). We then repeat the process on the remain- 
ing subinterval, and continue on in this fashion until we are 
within a certain distance (or tolerance) of the root. This gives us 
the approximation for the root. 




Figure lb): BISECT algorithm 



New left endpoiot 





root 



New midpoint 






Figm% Ic): Blow-up of lb) 
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We need to know one thing before going ahead and writing the 
algorithm for this method: how do we know if an interval 
contains a zero or not? The easiest way is to compare the 
function values at the two endpoints of a specific interval If 
there is a root in the interval, then one y-value will lie below the 
X-axis and the other will be above it. Thus if we are looking at 
the interval [A,B], there will be a root if the following condition 
holds: 

f(A)*f(B)<0 

(Remember that if you multiply a negative number by a positive 
one you get a negative answer, and a positive one otherwise.) 
This is the test we will use in the algorithm. 

NOTE: The above test is not accurate for all Intervals of a 
function, [f, for example, a function crosses the x-axis twice on 
the interval [A,B]- then f(A)*f(B) > 0, even though there are two 
roots in the interval. Thus you must be careful of which interval 
you choose to get an accurate example. Plotting the graph over a 
large interval can often give you a good idea where the roots are 
approximately, and you can then use the bisection method to get 
an accurate estimate from the intervals shown on the graph. 



base and height, we simply sum the individual rectangle areas to 
gel an approximation for the entire area under the curve. The 
approximation gets better as the number of rectangles increases 
(and hence the base length decreases). 



Area under 
the curve 




A BASIC subroutine to hnd a root using the bisection method is 
shown in Listing *1, lines 380-430. The function should be 
defined in the calling program with a DEFFNF statement. Set the 
variables A and B to be the left and right endpoints of the 
interval you wish to test, and set TL to be the desired tolerance 
(something like 0.00005, say), A GOSUB 380 will then find the 
root, ifany, on the interval. Jfa root is found, ER will be zero and 
the root location will be stored in MID. U ER is 1, then no root 
was found on that interval — but remember this is not necessar- 
ily a definitive answer. The rest of the program in the listing is an 
example of how to use the routine. (None of the REM statements 
are necessary, so you don't have to type them in.) 



Integration 

integration is the term used, at the most basic level, to describe 
the method to find the area under a given curve. Refer to Figure 
2. The area under the curve on the interval [A,B] is shown as the 
shaded area. Note that the we consider the term "under the 
curve" to mean *'from a point on the curve to the corresponding 
point on the x-axis", in other words the area between the curve 
and the x-axis. (Even if a function is below the x-axis. this 
definition is valid and we still use the term "under the curve", 
even though it's a bit inaccurate in this situatiori.) 

Many methods have been developed over the years to calculate 
areas, and the one we will use here is based upon approxima- 
tion. One way of estimating the area in such a fashion is to divide 
the area into many rectangles of equal base length. Each 
rectangle will have a height determined by the function itself. 
Since we know that the area of a rectangle is the product of its 



Figure 2: Area under the curve between points A and B 



The actual area-finding routine described In this article is a 
variation of the approximation method detailed above called 
Simpson's Rule. I won't go into the theory as to how the rule 
works here, but you can find it in any good computer textbook 
dealing with area-finding problems. Listing ^2 shows the actual 
BASIC subroutine, from lines 450 to 520. As in the bisection 
subroutine, the function should be defined with a DBF FN 
statement, and the endpoints of the interval stored in the 
variables A and B, The variable NP is the desired number of 
integration paneis (rectangles) that the subroutine should use. 
This sets the desired estimate accuracy for the subroutine ~ the 
larger NP is, the better the estimate, (There's a tradeoff in time 
taken to calculate the area, of course.) Actually, if your function 
FNF has no powers of x greater than 3, then you need only set 
NP to a small number such as 1 6, because Simpson's Rule gives 
an exact value for the area. For functions of degree greater than 
3 (ie, they have powers of x that are greater than three), 
Simpson's Rule gives an estimate, an estin:iate which improves 
withlargervaluesof NP.As before, the rest of Listing *2 gives an 
example of how to use the subroutine. 



Final Notes 

Computer algorithms such as the above have made themselves 
very useful for solving many physical problems. Examples 
abound that require a person to know the roots or integrals of a 
function, and sometimes the most efficient way to find these is to 
use a computer. While the answers such algorithms may give are 
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limited both by the computer's accuracy (usually found as 
round-off errors} and the inherent inaccuracy of the algorithms, 
they are usually good enough for the task (especially since the 
time required to find an accurate answer using manual methods 
may outweigh the benefits of having such an accurate answer). If 
you're interested in other such approximation techniques, many 
computer science textbooks are good sources of such informa- 
tion and usually the algorithms they give may be converted to 
BASIC without much trouble, 1 know that I've found the integra- 
tion routine particularly useful in checking my answers in my 
university calculus courses. Maybe you can find a good use for 
them, too. • 



Listing 2: Approximate Area using Simpson's Rule 



Ustingl: BISECT 



CD 

FL 

GJ 

IG 

KK 

NE 

OL 

IC 

PH 

CD 

LB 

EA 

Fl 

DA 

MC 

MC 

HM 

DN 

NA 
GJ 
IE 
KK 
KF 
EB 
BC 
AB 
JB 
AJ 
CC 
PB 
FO 
EK 
lA 
PM 
JK 



1 00 rem sample program to find the 

110 rem roots of the function 

120 rem 

130remy-(x-3)(x-1)(x + 4) 

140 rem 

1 50 rem which we know are x = 1 ,3, and -4. 

1 60 rem 

1 70 rem try the intervals (0,2), (2,0) 

180 rem and (-5.-3) 

190: 

200deffnf{x) = (x-3)'(x-1)'(x + 4) 

210 print 

220 input" left endpoint";a 

230 input " right endpoint " ;b 

240 input " tolerance " ;tl 

250 pnnt 

260 gosub 380 

270 if er = 1 then print ' no zero was found 

between "ia; "and';b: goto 210 
280 print "root is at; ";mid: goto 210 
290: 
300 rGm ***#**#•********#**#****#* 

310: 

320 rem bisect subroutine, used to 

330 rem find the zero of a function 

340 rem between points a and b, with 

350 rem tolerance tl. if no zero 

360 rem exists, er = 1. 

370 rem 

380 fl = fnf(a): fr = fnf(b): er = 

390 if fl'fr > then er = 1 : return 

400 mid - (a + b)/2 

41 if abs(a-mid) < = tl then return 

420 fm = fnf(mid) 

430 if fl'fm < - then b - mid: goto 400 

440 a = mid: fl = fm: goto 400 



LE 

NE 

EK 

AK 

01 

EL 

AO 

MO 

Dl 

MD 

GO 

U 

AF 

BC 

EG 

CC 

f^B 

CI 

HE 

HO 

MC 

KK 

OF 

CG 

CH 

AA 

Gl 

MJ 

LM 

JD 

MH 

IL 

PD 

NE 

GN 

FE 

BC 

OG 

CG 

OD 

DN 

GD 

EC 






100 rem program example using Simpson's 

1 1 rem rule to find the area under 

120 rem the curve 

1 30 rem 

1 40 rem y = 1 + x + xt2 

1 50 rem 

160 rem from x = 0tox = 2. by direct 

1 70 rem integration the answer we 

180 rem should get will be 20/3, or 

190 rem approx. 6.66667 

200 rem 

21 rem first define the function 

220: 

230 deffnf(x) - 1 + x + x^x 

240: 

250 rem now call the subroutine to 

260 rem find the area 

270: 

280 a = 0: b = 2: np = 1 6: gosub 450 

290 phnt " the area from " ;a; "to " ;bi - is: " ;ar 

300 end 

310: 

320 rem 

330 rem *t*»**»* + **f*t**»***«****«**» 

340 rem 

350 rem Simpson's rule subroutine 

360 rem 

370 rem returns the area under the curve 

380 rem defined by fnf, from endpoints 

390 rem a to b. set np to the desired 

400 rem number of integration panels 

410 rem 

420 rem the area is returned as a value 

430 rem in the variable 'ar' 

440 rem 

450h-(b-a)/(2*np):se = 0:so = fnf(a+h) 

460 fori = 1 tonp-1 

470 : X = a + 2»i*h 

480 : se = se + fnf(x) 

490 : so = so + f nf(x + h) 

500 next i 

510ar = {h/3)*(lnf(a) + 4*so + 2*se + fnf(b}) 

520 return 
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Full Array Math 
Operations On The 64 



Richard Richmond 
Springfield, Ohio 



. . . When manipulating large arrays or carrying out repetitive operations, 
these routines can significantly reduce the execution time of a program. 



This arlicie describes a group of math functions that perform the 
basic math 'operations like "add, subtract, multiply and divide" on 
an entire array with just one SYS command. Using these routines, 
code like the following; 

100fori = 0to100 
110 a(i) = a{i)*c 
1 20 next i 

can be reduced to SYS SA+ 18,C,A(0), where A is the name of an 
array and C is a separate variable. Not only do these routines 
provide simpler code, but they are faster than the corresponding 
operation in BASIC statements. These routines are written in ma- 
chine language and will carry out the operations from ten to fifty 
tinries faster than BASIC. When manipulating large arrays or carry- 
ing out repetitive operations, these routines can significantly reduce 
the execution time of a program. Because this program makes 
extensive use of the floating point routines in ROM, it also provides 
examples of how to use those routines in your own programs. 

The New Functions 

Tabie I lists the SYS commands for these new utilities. Also listed 
are the math functions performed by each of the functions. You can 
see from the list that the program can perform the four math 
functions +, -, *, and / on either two arrays or one array and a 
separate variable. Some of the routines are provided to take into 
account the non-reciprocity of certain operations. For example, 
A=A+B" is the same, mathematically, as "A-B + A". But, 
A=A-'C' is not the same as "A = C-A". Table I shows that separate 
routines are provided for the following non- reciprocal operations; 



([ 



tz 



A = A-V 


A = A-B 


A = V-A 


A = B-A 


A = A/V 


A = A/B 


A = V/A 


A = B/A 



Throughout this article and in the examples, the labels A and B will 
be used to indicate arrays and the label V to indicate a single 
variable. Note that when a variable is indicated that variable could 
also be one of the elements of an array, 

The Rules and Exceptions 

Because most of these routines follow the same conventions and 
format, we will first discuss those and later point out the exceptions. 

Two arguments, separated by a comma, are passed to the utility. 
The second argument will be one of the arrays that will be operated 
on and the array in which the results will be stored. These routines 
are written to operate on floating point arrays and variables. 



When working on an array, two addresses are used by the routines. 
The address for the end of the array in the second argument is found 
by the program and used to determine when the operation is 
completed. The other address is i]sed to tell the procedure where in 
the second array to start the operation. In Table 1, the array 
elements are x (such as a(x)}. Normally, x would be = 0. In that case, 
the procedure begins with the first, or (0). element of the array and 
operates on every element in the array. A non-zero element would 
cause the routine to skip some of the elements. For example, SYS 
SA,V,A(0) would cause every element in A to be set equal to V, But, 
SYS SA.V,A(2) would leave A(0) and A(l) unchanged and all of the 
rest of the elements would be equal to V, 

With this type of flexibility, some precaution is necessary. For the 
two array operations, the number of elements in the first argument 
from the element specified to the end of array must be. at least, 
equal to the number of elements in the second argument from the 
specified element to the end of that array. The routines only look for 
the ending address of the second array. If the utility runs out of 
elements in the first array before reacfiing the end of the second 
array, the program continues but the results from that point on will 
not be valid. No error or system crash should result, just useless 
data. 

Arrays must be dimensioned and the elements should be defined 
before the utilities are called. The utility can be used to define 
elements if they are all the same value. Variables do not have to be 
predefined. But if they are not, they will be set to zero the first time 
that they are used in a SYS to one of the routines. This program 
depends heavily upon the floating point routines in ROM. There- 
fore, the rules for math operations in BASIC still apply and the 
routine will return error messages such as "DIVISION BY ZERO'^ if 
illegal operations are attempted. 

As mentioned earlier, there are exceptions to the above guidelines. 
Two of [he routines are not limited to floating point numbers. 
"EQUB" works on all three types of variables (integer, string and 
floating point) and sets one array equal to a second. "INSERT" is the 
second utility that also works with all variable types. This routine 
puts the value of the first argument into the array at the location 
specified, A(x), All of the following elements are shifted down one. 
That is, A(x+l)-A(x).A(x4'2)=A{x+l) and so on. The last ele- 
ment in the array is lost. 

Also, notice that "SQUARE" has only one argument. The elements 
of the array are squared and stored back into the array, so no second 
argument is needed. 

For most of these routines, the value of the first argument is not 
changed and should be defined before being used in one of the 
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routines, unless that value is to be zero, The exceptions are 'mn' 
and 'mx' used in "MIN'' and "MAX". The minimum (mn) or 
maximum (mx) value of the array will be returned and the initial 
value of the variable does not matter. 

A Look At The Program 

The source code for these routines is listed in Program 3, Rather 
than discuss it iine-by-line, we will look at some general character- 
istics and some of the subroutines or modules used by almost all of 
the routines. The labels at the beginning of the listing refer to the 
ROM routines that do the bulk of the floating point math. Next in the 
listing is the "JUMP" table. This technique makes it much easier to 
insert or delete code or to make changes in the routines because the 
■'SYS" statement in BASIC does not change. Also, the ^'SYS" address 
for new routines that may be added later can be easily determined. 

To obtain as much speed as possible, zero page addressing is used 
extensively. But, there is not enough zero page free memory for our 
purposes. Therefore, "SZPAGE" saves the contents of a bloclc of zero 
page memory to a safe location and ''RESTOREZ" loads the values 
back to zero page before returning to BASIC. 

The 'TEST" routines are used to step through the array five bytes at 
a time (5 bytes are used to store a floating point number) and to set a 
flag when the end of the array is reached. "MODI " looks for the first 
argument in the variable or array storage area and creates it if not 
found. The address of this variable is then saved. Next. "M0D2" 
finds the address of the array element in the second argument and 
the address of the end of this array. These values are also stored for 
use by the routines, [n general, the steps followed when one of the 
routines is called are: 

1. Save zero page values 

2. Use "MOD" routine to find the arguments 

3. Addresses are loaded to the registers 

4. Numbers are loaded into the Floating Point Accumulator (FAC) 

5. The required math is performed between the FAC and memory 
6- Results in FAC are stored in memory 

7, Steps 3-6 are repeated for entire array 

8. Zero page is restored and control returned to BASIC 

Using The Program 

First, type in and save Program 2, When this program is run, a ML 
program file is written to disk with the name '^ARRAY.FNC". Load 
this program with: 

L0AD"ARRAY.FNC\8,1 

Because these utilities were conceived to provide time savings for 
graphics programs, they are located to be compatible with graphics 
utility programs that load at SCOOO (49152). The starting address 
(SA) for these utilities is 51800, Once these utilities are loaded, type 
"NEW" and enter or load your BASIC program. Near the beginning 
of your prc^ram, define SA = 51800. SA can then be used for the 
SYS statements listed in Table 1. 

For examples of how these routines work, look at Program L Not 
every routine is illustrated in Program 1 , but if you run the program 
and examine the output, you will get a good idea of what these 
routines do. Note that in the next to last example array B is squared, 
but the element (x) in the SYS command is 4. Compare that print out 



with the previous one and you will see that the first 4 elements (x = 
to3)arenotchangedand the remaining elements {x = 4 to 10) have 
been squared. The examples in Program 1 should give you a good 
starting point for your own experiments in how to use these 
routines. 

Some of the routines, such as "MIN" and "MAX" are especially 
useful when graphing. Using these routines, the maximum and 
minimum values of an array could be used to "scale" the data before 
it is displayed. 

These utilities are fast. They are reasonably '^goof proof" yet still 
allow a good deal of flexibility. Any program that manipulates large 
arrays should benefit from the increased speed possible with these 
utilities. The use of jump tables and a modular approach to program- 
ming the different operations make it fairly simple to add other 
functions to the program. Obvious ideas for additional routines 
■would be a square root function and one to raise the array to a given 
power. Because both EQUB and INSERT work on all three types of 
variables, you might want to write another program that only has 
these two routines in it. 

Although 1 first thought of these routines as aids for graphics 
programs, they would be equally useful in a database or spread- 
sheet type of program. For that type of use, another possible 
function would return the sum of an array. I would be interested in 
hearing from anyone who has su^estions for improvements or 
additions to this program. 



TABLE 1 : Summary of Commands 



Format 

SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 
SYSSA 



V,A(X) 

+ 3,B(Y),A(X) 
^6,V,A(X) 
+ 9,B(Y).A{X) 
+ 12,V,A(X) 
+ 15.B(Y),A(X) 
+ 18MA{X) 
+ 21,B{Y).A{X} 
+ 24,V,A(X) 
+ 27,B(Y>,A(X) 
+ 30,V, A(X) 
-f33,B(Y),A(X) 
-f36,V,A(X) 
+ 39,B(V),A(X) 
+ 42,MX,A(X) 
+ 45,MN,A(X) 
+ 48,A(X) 

+ 51.V.A(X) 



Routine 

EQUV 

EQUB 

PLUV 

PLUB 

SUBV 

SUBB 

MULV 

MULB 

DfW 

DIVB 

SBUV 

SBUB 

DViV 

DVIB 

MAX 

MIN 

SQUARE 

INSERT 



Operation 

A = V 
A = B 
A = A + V 
A = A + B 
A = A-V 
A = A-B 
A = A*V 
A = A*B 
A = AA/ 
A = AyB 
A = V-A 
A = 8- A 
A = V/A 
A = B/A 
MAX(A) 
MIN{A) 
A = At2 
A(X) = V 



NQTE:SA = starting address (51 800) 
IF X or Y>0 in SYS command, routine will skip over elements 
in array to (X). Elements with (a)<X will be unmodified- 
Program 1: Example 



10sa = 51800: dim a(10),b(10) 
20 print: for i = to 1 0: a{i) = i: next 
30 print: print ''setb = a": syssa + 3,a(0),b(0) 
40 print: fori = Oto 10: print b(i);: next 
50 v1 =2:syssa + 6,v1,b(0): print: 
print "setb = b + 2^ 
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ED 


60 for i = to 1 0: printb(i);: next 


AK ■550data182, 32,162,187,165,183,164,184 




MC 


70 v2 = 25: prinl: print " insert 25 at a(5) " : 


HC 


SeOdata 32, 80,184, 32,185,202, 32,206 






syssa + 51,v2,a(5) 


DH 


570 data 202, 176,230, 76,173,202, 32,161 




FE 


80 for i = to 10: printa(i);: next 


MC 


580data202, 32, 20,205,165,185,133,181 




CP 


90 print: print " set b = b*a ' : sys sa + 21 ,a(0), b(0) 


BK 


590data164, 186, 132, 182, 32, 162,187, 165 




MF 


100fori = 0to 10: print b(i);: next 


LP 


600data183, 164, 184. 32, 40,186, 32,185 




OA 


110 print: print " square b - (b = bl2) " 


BK 


610data202, 32,206,202.176,230, 76,173 




FP 


1 30 print ' starting witti element x = 4 " : 


MM 


620 data 202, 32,161,202, 32, 20,205,165 






syssa + 48,b(4) 


JO 


630data183, 164, 184, 32, 162,187,165, 185 




El 


140 for i = to 10: print b(i);: next 


IN 


640data133, 181, 164, 186, 132,182, 32. 15 




NM 


150 print: print "using an undefined variable': 


KL 


650data187, 32,185,202, 32,206,202,176 






syssa,v3,a(0) 


PA 


660 data 230, 76,173,202, 32,161,202, 32 




JD 


160 print: fori = Oto 10: printafi);: next 


HP 
FA 


670 data 20,205, 165, 185, 133,181,164, 186 
680data132, 182, 32, 162, 187,165,183, 164 






4* 


Program 2: Creates disk file " ARR AY.FNC " 


OM 


690data184, 32, 15,187, 32,185,202, 32 


. E 


JP 


700 data 206 202 176 230 76 173 202 32 




IK 


1 00 rem m/1 loader for array math 


BM 


710datal61,202, 32, 20,205,165,183,164 




BE 


110forj = 51800to5277S 


LD 


720 data 184, 32, 162, 187, 165, 185, 133, 181 




JH 


120 read x : ch = ch + x : next 


HD 


730daal64,186,132, 182, 32,103,184, 32 




ED 


130ifch<> 141610 then print 'checksum 


IE 


740 data 185, 202, 32,193,202,176,230, 76 






error " : end 


LF 


750 data 173, 202, 32,161,202, 32, 20,205 




IP 


1 40 print " data ok. , . creating 'array.f nc' " 


JF 


760 data 165, 183, 164, 184, 32, 162, 187, 165 




OH 


1 50 hi X. int(51 800/256): o = 5 1 800-hj*256 


NC 


770datal85, 133, 181,164, 186, 132, 182, 32 




HB 


1 60 open 1,8,1," 0:array.fnc " 


OH 


780 data 80,184, 32,185,202, 32,193,202 




PO 1 70 print#1 ,chr$( o)chr$(hi); 


HE 


790 data 176, 230, 76,173,202, 32,161,202 




MM 


1 60 restore 


LH 


800 data 32, 20,205,165,183,164,184, 32 




01 


190 fori-51800 to 52778 


FK 


810 data 162, 187, 165,185, 133, 181, 164, 186 




NN 


, 200 read x : pFJnt#1 ,chr$(x); : next 


JK 


820 data 132, 182, 32, 40,186, 32,185,202 




FK 


21 closel 


CI 


830data 32,193,202,176,230, 76,173,202 




KP 


220 rem 


JK 


840data 32,161,202, 32, 20,205,165,183 




DA 


230 data 76,233,202, 76,169,204, 76, 5 


KL 


850dala164, 184, 32,162,187,165,185,133 




PC 


240 data 203, 76,215,203, 76, 40,203, 76 


AM 


860datal81, 164, 186, 132, 182, 32, 15,187 




BJ 


250 data 250, 203, 76,110,203, 76, 29,204 


EH 


870 data 32,185,202, 32,193,202,176,230 




GE 


260data 76,145,203, 76, 64,204, 76, 75 


NH 1 


880data 76,173,202, 32,161,202, 32, 20 




EE . 


270data203, 76, 99,204, 76,180,203, 76 


KM 


890 data 205, 165, 185, 164, 186, 133, 181, 132 




PJ 


280 data 134, 204, 76, 37,205, 76,107,205 


OP 


900 data 182, 32,162,187,165,183,164,184 




GG 


290dafa 76,177,205, 76,212,205,255,113 


DK 


910data 32, 80,184, 32,185,202, 32,193 




,GE 


300 data 255, 255,255,255, 0, 0, 38,202 


BN , 


920 data 202, 176,230, 76,173,202, 32,161 




' JL 


310data 1, 8, 64, 0. 0, 3, 0, 3 


Kl i 


930data202, 32, 20,205,165,185,133,181 




iHG 


320data 64,160, 12,185,191, 0,153,148 


PP 


940datal64, 166, 132, 182, 32,162,187,165 




MN 


330 data 202, 136, 16,247, 96,160, 12,185 


FG 


950data183,164,184, 32, 15,187, 32,185 




DN 


340data148,202,l53,19l, 0,136, 16,247 ; 


MA 


960data202, 32,193,202,176,230, 76,173 




■ PN 


350data 96,166,181,164,182, 32,212,187 i 


LB 


970data202, 32,161,202, 32, 20,205,160 




AN 


360data 96,165,183, 24,105, 5,133,183 


MM 


980 data 0,177, 183, 145, 185,230, 183,208 




II 


370datal65, 184, 105, 0,133, 184,165, 185 


NL 


990 data 2, 230, 184, 230, 185, 208, 2, 230 




BP 


380 data 24,105, 5,133,185, 165, 186, 105 


AD 


1000data186, 165, 186, 32,219,202,176,231 




DJ 


390 data 0, 133, 186, 197, 252, 208, 8, 165 




lOIOdata 76,173,202, 32,253,174, 32,158 




CM 


400 data 185, 197,251,208, 2, 24, 96, 56 


OG 


1020 data 173, 165, 71, 133, 185, 165, 72, 133 




BK 


410data 96, 32,161,202, 32, 20,205,165 


Dl 


1030 data 186, 165, 47,133,251,165, 48,133 


■ 


LB 


420dataia3, 164, 184, 32,162,187,166,185 


MJ 


1040 data 252, 160. 0, 177,251,197, 69,203 




00 


430 data 164, 186, 32,212,187, 32,206,202 


HG 


1050data 11,200,177,251,197, 70,208, 5 




BP 


440 data 176, 244, 76,173,202, 32,161,202 


01 


1060 data 32,251,204, 96,200, 32,251,204 




CM 


450 data 32, 20,205,165,185,164,186,133 


LG 


1070 data 76,225,204,200,177,251, 133,253 




FC 


460 data 181, 132, 182, 32, 162, 187,165,183 


GD 


1080 data 200, 177,251, 24,101,252,133,252 




DB 


470 data 164, 184, 32,103,184, 32,185,202 


GF 


1090data165, 251, 24,101.253,133,251, 144 




HB 


480 data 32,206,202,176,230, 76,173,202 


CC 


1100 data 2,230,252, 96, 32,253,174, 32 




LE 


490 data 32,161,202, 32, 20,205,165,183 


DN 


1110data139, 176,165, 71,133,183,165, 72 




MF 


500datal64, 184, 32, 162, 187, 165, 185,133 


II 


1120 data 133, 184, 76,203,204, 32,161,202 




IF 


510data181, 164, 186, 132, 182, 32, 80,184 


BN 


1130data 32, 20,205,165,186,164,186, 32 




OA 


520 data 32,185,202, 32,206,202,176,230 


CH 


1140data162, 187, 162, 142, 160,202, 32,212 




PB 


530data 76,173,202, 32,161,202, 32, 20 


DO 


11 50 data 187. 32,206,202,165,185,164,186 




MG 


540 data 205, 165, 185, 133, 181, 164, 186, 132 


CM 


1160 data 32, 162, 187, 162, 142, 160, 202, 138 
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BL 
FL 
GJ 
DA 
HM 
tA 
PA 
LO 
AC 
MP 
IC 
IC 
Gl 
EA 
JE 
KJ 
BG 
HL 
MH 
Al 
MK 
OL 
FL 
01 
HN 
OB 
IP 
KN 
EB 



11 70 data 32. 
11 60 data 202, 
1190 data 227, 
1200data187, 
1210 data 76, 
1220 data 205, 
1230 data 162, 
1240 data 206, 
1250 data 187, 
1260 data 188, 
1270 data 212, 
1280 data 142, 
1290 data 183, 
1300 data 202, 
1310 data 185, 
1320 data 162, 
1330data186, 
1340 data 230, 
1350 data 20, 
1360 data 10, 
1370 data 69, 
1380 data 56, 
1390 data 0, 
1400datal33, 
1410 data 164, 
1420 data 16, 
1430 data 165, 
1440 data 136, 
1450 data 76, 



91.188, 

32,212, 
162, 142, 
166, 183, 
173,202, 
165.185, 
142,160, 
202,165, 
162, 142, 

16, 7, 
187, 32, 
160,202, 
164, 184, 

32,161, 
164,136, 
187,165, 

32,185, 

76,173, 
205,169, 
144, 11, 

10,176, 
229, 191, 
133,252, 
253, 165, 
191, 136, 
249, 165, 
251, 197, 
177,183, 
173,202 



48, 7, 
187, 32, 
160,202, 
164,184, 

32,161, 
164, 186, 
202, 32, 
185, 164, 
160,202, 
162,142, 
206, 202, 
138, 32, 

32,212, 
202, 32, 
133,181, 
185, 164, 
202, 32, 
202, 32, 
5, 133, 
1 69, 2, 
2, 230, 
133,251, 
165,251, 
252, 233, 
177,253, 
252, 197, 
185,208, 
145,251, 



162, 142, 160 
206,202, 176 
138, 32, 162 

32,212,187 
202, 32, 20 

32, 162, 187 
212,187, 32 

186, 32, 162 
138, 32, 91 
160,202, 32 
176,227, 162 
162,137,166 

187, 76, 173 
203,204,165 
132.182, 32 
186, 32, 40 
206,202, 176 
161,202, 32 
191,165, 70 
133,191,165 
191, 165,251 
165,252,233 

56,229,191 
0,133,254 
145,251,136 
186,208,214 
208,164.191 
136, 16,249 



Program 3: PAL Source Code 



AK 

\A 
KC 
KC 
Bf 
EL 
GO 
LH 
HN 
AA 
AH 
JM 
PK 
LH 
ML 
BB 
PN 
JG 
II 

CP 
JG 
Fl 
Fl 
NL 
LK 
GN 
EN 
KP 
JN 
KB 
AP 
NP 
LB 
OK 
CN 
KO 
AH 
LG 
HM 
CG 
BC 
FC 
DM 



1 00 fern array maih tu nations 




1 1 rem c nc^iard richmond 




120 rem 306 rosewood ave. 




130 rem spnngtield. Ohio 




140 rem 45506 




1 50 rem 






160opena,G 


, 1 . ' array obj " 




1 70 Sys700 






leo opto8 






I90»=$ca5& 




200 memfac 


- Sbba2 


imemorytofacl 


21 facmem 


- Sbbd4 


,1ac1 to memory 


220 com par 


■^ $bc5b 


.compare memory ro Jaci 


330 mem pi u 


= $l>e67 


;3dd memory lo facl 


240 Jnemmu 


1 = $ba?e 


;multfaci by memory 


250memsub = $b850 


.subfacl from memory 


260 inemdiw 


= SbbOr 


;divjdefac1 by memory 


270 


imp eqv 


; a()*v 'starting address 


280 


)mp eqb 


,a() = b{)'sa + 3 


290 


jmp piv 


; a() = a{) + v 'sa + 6 


300 


jmp pib 


,a() = a[) + b()sa + 9 


310 


jmp ^bv 


, a() = a[)-v'sa + l2 


320 


jmp sbb 


,a()=aE)-bE)'sa+i5 


330 


jmp mlv 


;a()-a()'v'sa+l8 


340 


jmp mib 


;ai) = a[)-b()'sa + 21 


350 


imp dvv 


,aO = a()/v'sa + 24 


360 


imp dvb 


;a() = a()/b()'sa + 27 


370 


jmp bsv 


;a{) = v-at)'sa + 30 


380 


(mp bsb 


;a£) = b()-b[)'sa+33 


390 


jmp vdv 


:a() = v/a()'sa + 36 


400 


jmp vdb 


;a() = b[)/a()'s3 + 39 


410 


imp max 


; v = max(a()) 'sa + 42 


420 


imp mm 


, v = min(a())'$a + 45 


430 


jmp square 


;a() = a()t2'3a + 48 


440 


jmp insert 


, inserivataf) '^a-i-51 


450 dummy 


-^. + 6 




460 zpage 


•=-+13 




470 szpage 




; routine to gave 


480 


Idy tfSOc 


, ?eTo page memory 


490 SZl 






500 


Ida SOObf.y 




510 


sta zpage. y 




520 


dev 





AF 


■530 


bpi 


SZT 




lA 


540 


rts 






KP 


550 reset 






; routine lo reset 


FO 


560 


tdy 


#$0g 


;aero page memory 


AG 


570 restorer 








NC 


530 


Ida 


Zpage, y 




JL 


590 


sla 


$00bf,y 




DB 


SOO 


dey 






GE 


510 


br^ 


restore? 




NJ 


620 


rts 




;eKit 


LO 


530 store 






,siore tacl 


KB 


640 


Idx 


$b5 


;tO memory 


LD 


650 


Idy 


$b6 


; specified at 


ML 


660 


isr 


tacmem 


; $b5.$b6 


Kl 


670 


rts 






MK 


6B0 Ie3t1 






:thi3 portion 


JB 


690 


Ida 


Sb7 


Jncrements tiie 


BP 


700 


do 




;second array 


OM 


710 


ado #$05 


; pointers by 


EO 


720 


sta 


Sb7 


:5 


CJ 


730 


Ida 


$b8 




JP 


740 


ado lt%OD 




EO 


750 


sta 


$b8 




EF 


760 test 






; routine to 


AH 


770 


Ida 


Sb9 


; increment 


BF 


760 


cIg 




;tirst array 


OB 


790 


ado #$05 


; pointers by 


KO 


BOO 


sia 


Sb9 


;S 


NP 


810 


Ida 


$ba 




JE 


820 


adc #$00 




PE 


830 


sta 


$ba 




JC 


840 test2 






;and check 


JP 


850 


cmp 


Sfc 


,tor the end 


LC' 


860 


bne 


cont 


.of array 


BC 


870 


Ida 


$b9 




DJ 


eeo 


cmp 


$fb 




GJ 


S90 


bne conl 




KP ' 


900 


cic 






KH 


910 


rts 






JB 


930 com 






;it not 10 end 


OC 


930 


sec 




:set carry bit 


IJ 


940 


rts 






CM 


950 eqv 






;a()-v 


BJ 


960 


jsr 


szpage 


,siore zero page 


DE 


970 


jsr 


modi 


;get addresses 


CH 


960 


Ida 


$b7 


; address o 


10 


990 


Idy 


$bS 


;v 


AH 


1000 


]sr 


memlac 


;load V to facl 


IP 


1010 eqvi 








CE 


1020 


idK 


Sb9 


:address of 


BD 


1030 


Idy 


$ba 


;a() 


JH 


1040 


isr 


facmem 


;tac1 loa[x) 


IG 


1050 


jsr 


lest 


icheck if done 


01 


1060 


bos eqvi 


:no continue 


BO 


1070 


fmp reset 


;yes exit routine 


OJ 


1 080 pIv 






;a() = a()-.v 


DO 


1090 


|sr 


szpage 




MJ 


1100 


jsr 


modi 




EG 


1110 plv2 








JB 


1120 


Ida 


Sb9 


;load address 


IG 


1130 


\dy 


Sba 


,of next a() 


CM 


1140 


sea 


$b5 


, pointer for 


CF 


1150 


sty 


$b6 


; store routine 


GG 


1160 


jsr 


memtac 


Jst element to facl 


GH 


1170 


Ida 


$b7 


; address of 


GP 


1180 


Idy 


$b8 


;v 


HN 


1190 


isr 


memplu 


,add V to facl 


LJ 


1200 


^r 


store 


;resultsto a() 


GL 


1210 


jsr 


test 




PA 


1220 


bcs plv2 




GM 


1230 


imp reset 




MB 


1240sbv 






;a()-a()-v 


Dl 


1250 


jsr 


szpage 




MD 


1260 


jsr 


modi 




LO 


1 270 sbvl 








DL 


1260 


fda 


$b7 


;ioad address 


LO 


1290 


Idy 


SbG 


;of V 


PL 


1300 


jsr 


memlac 


;vto lacl 


HN 


1310 


Ida 


$b9 


;load address 


MN 


1320 


sia 


$b5 


;of 


NF 


1330 


Idy 


Sba 


M) 


Ml 


13-10 


Sly 


Sb6 




PH 


1350 


jsr 


mem sub 


;a()added to fad 


JE 


1360 


isr 


store 


: result to a() 


GF 


1370 


isr 


lest 




KJ 


1380 


bcs sbvl 




GG 


1390 


imp reset 




DA 


1400 bsv 






;3[)=v-a() 


DC 


1410 


jsr 


szpage 




MN 


1420 


isr 


modi 
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MJ 
LF 
HJ 
HO 
OA 
BD 
ED 
NL 
BM 
Bl 
GP 
LE 
GA 
PG 
DM 
MH 
ND 
LP 
EG 
KN 
OK 
8N 
EN 
NP 
HD 
BC 
GJ 
10 
GK 
M8 
DG 
MB 
JO 
NE 
LM 
HK 
GG 
IE 
FF 
MG 
PL 
BM 
GO 
DJ 
GE 
EO 
DA 
ML 
HH 
JO 
KM 
HW 
OO 
BB 
EB 
NJ 
EH 
BG 
GN 
BC 
GO 
JP 
OK 
MF 
DN 
01 
U 
OJ 

JP 

CO 
iN 
MK 
JL 
BA 
HE 
PI 
01 
Al 
DE 
MP 
LF 
CC 
ID 
00 
JJ 
CI 
IH 
ME 
GL 
HH 



1430bsv1 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 mlv 

1570 

1580 

1590mlvl 

1600 

;610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

I720dvv 

1730 

1740 

I750dvv1 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1S70 

TBBOvdv 

1890 

1900 

1910 vdvl 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 pib 

2050 

2060 

2070 pibl 

2060 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 Sbb 

2210 

2220 

2230 sbb 1 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 



Ida $b9 

sta $b5 

kjy Sba 

sty $b6 

jsr rriemfac 

Ida Sb7 

Idy $bB 

fsr rnemsub 

jsr store 

jsr tesi 

bcs bsv1 

jmp resel 

jsr szpage 

jsr modi 

Ida Sb9 

^ £b5 

Idy Sba 

sly $b6 

]Sr memfac 

Ida Sb7 

Idy Sbe 

pr memmul 

jsr store 

jsr test 

bcs mlul 

jmp reset 

isr S7page 

jsr modi 

Ida Sb7 

Idy $b6 

jar memtac 

Ida Sbg 

sta £b5 

Idy $Y}5 

sty Sb6 

jsT memdiv 

]sr store 

isr test 

bcs dwl 

[mp reset 

r& szpage 

jsr mod 1 

Ida Eb9 

sta Sb5 

Idy Sba 

sty Sb6 

jsr memfac 

tda Sb7 

Idy £b8 

jsr memdiv 

jsr store 

jsr test 

bcs vdvi 

jmp reset 

isf szpage 

|5r modi 

Ida $b7 

Idy Sbe 

|sr memfac 

Ida $b9 

Eta $b5 

Idy $ba 

sty Eb6 

jsr memplu 

jsr store 

jST testi 
bcs pibl 
fmp reset 

jsr szpage 

fsr mod 1 

Ida $b7 

Idy Sbe 

jsr memfac 

Ida Sb9 

sta $b5 

Idy Sba 

sty $b6 

isr memsub 

fsr store 



;faci=a() 
; address 
;o»v 

;taci = v-a( 
;an°tac1 



:a()=a()-v 



;address 

;ata() 

;faci=a() 

[address 

;otv 

;facl =a()-v 

;a[) = fac1 



.a()-a(Vv 



;adress 
;of V 
;facl -V 
:address 
;ofa() 



;fac1 -a(Vv 
;a() = tacl 



:a()-v/a() 



; address 
;ofa() 



;fac1 - a[ ) 
;address 
;of V 
;fac1 »v/fac1 

;aE) = f3cl 



;ai).a().b(j 



; address 
;orbt) 

;fac1-W) 

;address 
;ofa() 

;faGl =tac1-a() 

;a()-rac1 

;inciemerii b pointer ihen a 



;a()-a{)-b() 



^address 
;otb{} 
:fac1 = b( j 

; address 
:ofaE) 

;fac1 =a{)-fac1 

;a()-i 



AN 


2330 


|Sr 


testi 


;incremerit bthen a 


OB 


2340 


bcs 


sbbi 




GO 


2350 


jmp 


reset 




DD 


2360 mlb 






;a()-a()-b() 


DO 


2370 


)sr 


szpage 




MJ 


2380 


(Sr 


modi 




NA 


2390 mlb 1 








CM 


2400 


Ida 


Sb7 


; address 


ir'j 


2410 


Idy 


Sba 


;ofb() 


ON 


2420 


isr 


memfac 


;facl=b() 


JD 


2430 


Ida 


Sb9 




CC 


2440 


sta 


Sb5 


; address 


IB 


2450 


Idy 


Sba 


;ota() 


MO 


2460 


sly 


Sb6 




EO 


2470 


jsr 


memmul 


;tac1 "facl-a() 


BE 


2480 


isr 


srore 


,a() = facl 


NO 


2490 


jsr 


tesll 


; increment pointers 


MM 


2500 


bcs 


mibl 




GM 


2510 


imp 


reset 




AO 


2520 dvb 






:a() = a(yb() 


Dl 


2530 


W 


szpage 




MD 


2540 


jsr 


modi 




JL 


2550 dvb 1 








CG 


2560 


Ida 


Sb7 


; address 


IH 


2570 


Idy 


Sb8 


;ctb[) 


OH 


2580 


jsr 


memfac 


;facl-b(j 


JN 


2590 


Ida 


$b9 




CM 


2600 


sta 


$b5 


.address 


IL 


2610 


Idy 


Sba 


;ofa() 


Ml 


2620 


sty 


$b6 




IG 


2630 


jsr 


memdiv 


;taci =taci-a{) 


BO 


2640 


jsr 


store 


;a() = 1ac1 


NN 


2650 


jw 


testi 


;ir>crement pointers 


HH 


2660 


bcs 


dvbl 




GG 


2670 


jmp 


reset 




BH 


2680 bsb 






;a()-^b()-a() 


DC 


2690 


jsr 


szpage 




MN 


2700 


jsr 


modi 




ME 


2710 bsbl 








LF 


2720 


kJa 


Sb9 




Kl 


2730 


Idy 


$ba 


laddresfi 


EP 


2740 


sta 


SbS 


,ofa() 


OA 


2750 


sty 


Sb6 




BD 


2750 


|sr 


memfac 


;fac1=a() 


ED 


2770 


Ida 


Sb7 


: address 


KE 


2780 


Idy 


Sbe 


:ofb() 


HJ 


2790 


]Sr 


memsub 


;faci-b()-facl 


Bl 


2800 


jsr 


store 


,a[) = faci 


NH 


2810 


isr 


testi 


; increment poiniers 


PA 


2820 


bcs 


bsbl 




GA 


2630 


imp 


reset 




OA 


2840 vdb 






;a()-b(Va() 


DM 


2650 


jsr 


szpage 




MH 


2860 


jsr 


modi 




HO 


2870 vdbl 








LP 


2880 


Ida 


$be 




EO 


2890 


sta 


Sb5 


; address 


KN 


2900 


Idy 


Sba 


;ofa() 


OK 


2910 


Sly 


$b6 




BN 


2920 


jsr 


memtac 


;facl-a() 


EN 


2930 


Ida 


Sb7 


■address 


KG 


2940 


Idy 


SbB 


;otb[) 


PB 


2950 


jsr 


memdiv 


;facl-b()/fac1 


BC 


2960 


jsr 


siore 


,a() = tac1 


HM 


2970 


jsr 


testi 




FK 


2980 


bcs 


vdbl 




GK 


2990 


jmp 


resel 




IG 


3000 eqb 






;a() = b() 


DG 


3010 


jsr 


szpage 




MS 


3020 


jsr 


modi 




Ml 


3030 eqbi 








DG 


3040 


Idy 


*S00 




Nl 


3050 


Ida 


(Sb7),y 


; 1 St byte of b 


CE 


3060 


sta 


($b9),y 


;in^Da 


Gl 


3070 


inc 


$b7 


; increment 


JL 


3080 


bne eqb2 


; address 


^H 


3090 


inc 


$b6 


;ofb 


DN 


31 00 eqb2 








EL 


3110 


inc 


£b9 


;incremertt 


FO 


3120 


bne eqb3 


;address 


HL 


3130 


inc 


Sba 


;of a 


MP 


3140 eqb3 








FD 


3150 


Ida 


Sba 


;hi byte ot a 


BL 


3160 


JST 


test2 


;end Of array 


AJ 


3170 


bcs eqbl 


;no continue 


PB 


3180 


[mf 


) reset 


,yes exit rouiine 


OB 


3190mod2 






jind address of a 


JF 


3200 


jsr 


Saefd 


;skip comma 


HP 


3210 


|sr 


SadOe 


; rouiine 


AB 


3220 


Ida 


S47 


Jo byte of 
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DE 
HB 
PG 
ED 
CO 
00 
JP 
LC 
BH 
GD 
PB 
OM 
GP 
OF 
AD 
BH 
Bl 
PA 
KD 
MD 
IL 
AF 
JD 
IN 
KF 
JP 
GN 
OG 
EP 
GD 
NJ 
DP 
ML 
OF 
IM 
IB 
AP 
BB 
El 
AB 
GJ 
BB 
OG 
AJ 
NC 
HJ 
CP 
OK 
MG 
JC 
CO 
HF 
JN 
CN 
PI 
DC 
EE 
EN 
BN 
EJ 
MH 
JG 
JG 
DH 
CN 
AG 
U 
FK 
FK 
Jl 
KE 
KG 
KM 
PJ 
BO 
BF 
lA 
OF 
LI 
EH 
GL 
KJ 
Dh 
MC 
OE 
PM 
Al 
HG 
NG 
01 



3230 
3240 
3250 
3260 
3270 
3280 
3290 

3300 again 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 

-3410step2 
3420 
3430 step 
3440 
3450 

3460 siapl 
3470 
3430 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3530 
3590 
3600 
3610 st2 
3620 

3630 modi 
3640 
3650 
3660 
3670 
36B0 
3690 
3700 
3710 max 
3720 
3730 
3740 
3750 
3760 
3770 
3760 
3790 
3B00 

3610 max2 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 

3930 max3 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 

4040 fn in 

4050 
4060 

4070 
4080 
4090 

4100 
4110 

4120 



sta Sb9 

Ida $48 

sla Sba 

Ida S2i 

sia $rb 

Ida S30 

sta Sfc 

Idy #$00 

Ida {$fb),y 

cmpS45 

bne siep2 

iny 

Ida ($tb),y 

cmp $46 

bne step 

isr stepi 

ris 

irly 

|Sr Stepi 

imp again 

iny 

Ida (Sfb),y 

sia Sfd 

iny 

Ida ($Jb),y 

cic 

adc Sfc 

sia $ic 

Ida Sib 

dc 

adc Std 

sta $fb 

bcc st2 

inc $1c 



;a address 
;hi byte of 

;a address 

, start of 

;arf ay storage 

;search array storage 



;for name 



;'a' array 
[routine returns 
;wHh ending address 

;ota()in$fb,Sfc 



; routine to 
, skip through 
; array memory 

ifrom one 
; array to nent 



rts 

jsr 
isf 



Saefd 
SbOab 



Ida S47 
sta $b7 
Ida $46 
sta SbS 
jmp mod2 

isr S2page 

jsr modi 

Ida Sb9 

Idy Sba 

isr memtac 

Jdt *<dummy 

Idy #>dummy 

jsr facmem 

jsr test 

Ida $b9 

Idy Sba 

jsr memtac 

Idx #<dujnmy 

Idy #>dummy 
txa 

jsr com par 

bmi max3 

Idx #<dummy 

Idy #>dummy 

|sr facmem 

jsr test 

bc£ max2 
Ids #<dummy 
Idy #>dummy 
txa 

jsr memfac 
!dx Sb7 
Idy $b8 
jsr facmem 
jmp reset 

]SF szpage 

jsr mod! 

Ida Sb9 

Idy $ba 

jsr memfac 

Idx #<dummy 

Idy #>dumjny 

jsr facmem 



; routine To find \y{) 
;Ekip comma 
; routine 
nto find v.b 
;or create 
[variable 
,if notlound 

;v = maKimumofa() 



;facl = a(0) 
[Store in 

.'dummy' 



next address 
ota() 
facl =a() 



[Compare 
[a()with 'dummy' 
,fac1 larger 

[then 'dummy' = fac1 

[done 

;no continue 

,yes 

[fad = 'dummy' 

,address 
[Ofv 
[v = fac1 

;v = mfriimumota() 



[address 
;ofa(0) 
.store 
,3(0) into 



OB 


4130 


jsr 


te^ 




LA 


4l40mirT2 








AC 


4150 


Ida 


$b9 


address of 


PH 


4160 


Idy 


Sba 


next a( ) 


Hi 


4170 


isr 


memfac 


load into facl 


OE 


41 ao 


Idx 


a'<dummy 


,and 


NL 


4190 


Idy 


#>dummy 




MB 


4200 


txa 






NJ 


4310 


jsr 


com par 


;compare with 'dummy' 


BK 


4220 


bpl 


min3 


;fac1<' dummy 


EH 


4230 


Idx 


#< dummy 


;then 'dummy' 


PO 


4240 


Idy 


#>dumjny 




BO 


4250 


jSf 


facmem 


;-fflc1 


El 


4260 min3 








KK 


4270 


jsr 


test 




BE 


4260 


bos 


min2 


I'dummy =min(a) 


BC 


4290 


Idx 


#<dummy 




LC 


4300 


Idy 


#>dummy 




K 


4310 


txa 






DC 


4320 


jsr 


memtac 


;fransfer 


WD 


4330 


Idx 


Sb7 


;'dummy' 


MJ 


4340 


Idy 


SbS 


:to 


A\ 


4350 


jar 


facmem 


;v 


AA 


4360 


jmp 


reset 




IP 


4370 square 






;a = a'-a 


NL 


4380 


isT 


szpage 




KH 


4390 


|sr 


mod2 




OE 


4400 squl 








CK 


4410 


Ida 


$b9 


; address 


KM i 


4420 


Idy 


Sba 


;ofa[) 


LD 


4430 


sta 


Sb5 




IK 


4440 


sty 


Sb6 




BG 


4450 


isr 


memfac 


;a()tofacl 


HC 


4460 


Ida 


$D9 




JK 


4470 


fdy 


Sba 




LH 


4480 


jsr 


memmul 


;faci = a-a 


EA 


4490 


Isr 


store 




LH 


4500 


jsr 


lest 


; increment pointer 


PD 


4510 


bcs 


squl 




AK 


4520 


imp 


reset 




GO 


4530 insert 






;a(>ij = v 


MB 


4540 


jsr 


szpage 


ifdlowing 


HD 


4550 


jar 


modi 


;tfements 


JO 


4560 


Ida 


#S05 


; moved down 


DJ 


4S70 


sta 


$bt 


;a(riax) = a(max-i) 


FB 


4530 


Ida 


$46 


; continue 


BF 


4590 


asl 


a 


: until 


EB 


4600 


bcc 


insl 


;a[x + 1)-a{x) 


BD 


4610 


Ida 


#S02 


;lhena(N)^v 


MC 


4620 


sta 


Sbf 


: routine will 


NK 


4630 ins 1 






; automatically 


LJ 


4640 


Ida 


Sfb 


;use proper offset 


CK 


4650 


cic 




;for variable type 


LP 


4660 


sbc 


Sbf 


; works with 


EN 


4670 


sta 


Sfb 


.strings (aS) 


IC 


4630 


Ida 


Efc 


; integers (a%) 


AC 


4690 


sbc noo 


;or 


PC 


4700 


sia 


Sfc 


.floaiirig point 


EE 


4710 


Ida 


Sfb 




GO 


4720 


dc 






MG 


4730 


sbc 


Sbf 




GK 


4740 


sta 


Sfd 




PG 


4750 


Ida 


$lc 




LM 


4760 


sbc 


noo 




HM 


4770 


sta 


Sfe 




00 


4780 


Idy 


$br 




BH 


4790 


dey 






KL 


4600 ins2 








AB 


4810 


Ida 


{Sfd),y 




AF 


4820 


sia 


(*fb),y 




JJ 


4830 


dey 






CD 


4840 


bpf 


ins2 




JN 


4850 


da 


Ste 




EB 


4360 


cm| 


^Sba 




KC 


4870 


bnt 


! insl 




EP 


4880 


Ida 


Sfd 


■ 


KB 


4890 


cmi 


:>Sb9 




IE 


4900 


bne inst 




AH 


4910 


Idy 


Sbf 




DP 


4920 


dey 






ND 


4930 ir>s3 








CF 


4940 


Ida 


(ib7),y 




CN 


4950 


sta 


(Sfb).y 




LB 


4960 


dey 






iL 


4970 


bpl 


ins3 




MG 


4980 


imp 


► reset 




KF 


4990 .end 









; dummy' 
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Faster Square Root 
For The Commodore 64 



E.J. Schmahl 
Bowie, Maryland 






.not only is it fast, it is much more accurate! 



If you lime Ihe C-64 functions built into your C-64 BASIC, you 
will find that the SQR function is very much slower than +,-,*. 
or /. In fact it slower than EXP or LOG because it uses both of 
those functions, which are rather slow themselves. However, 
you don'r have to be resigned to slow square roots, because it 
turns out that there are well-known algorithms that run faster 
than the SQR built into your C-64 ROM, 

To make this possible, I have written a short machine language 
square root routine which takes the first variable in the BASIC 
variable area of memory and replaces it with its square root. The 
program uses the BASIC ROM floating point functions which 
move, add and divide numbers. (No LOGs or EXPs are used,) 

This routine can be run and compared with the standard SQR 
function in ROM: 

10 input a 

20printsqr(a);:sys49152 

30 print a: goto 10 

You will find that the new square root is about 2.5 times faster 
than the SQR in ROM, quite an improvement! But not only is it 
fast, it is much more accurate. Just try printing out the square 
roots of these squares; 26569, 21316689, 84309124, and 
0-779689. The new square root gives the exact answers {163, 
4617, 9182, and 0.883), but the ROM SQR routine does not! The 
reason is that the EXP function is not very accurate (6 to 8 digits 
instead of 9) for certain numbers. (This inaccuracy problem has 
been cured intheC-128.) 

Note that, to keep things simple, (and fast) the new SQR operates 
only on the very first variablt^ in BASIC. Thus whatever variable 
appears first in the program is changed into its square root. 
Make sure you declare your desired variable first with an 
equality (e.g. 1 x= 1) or a DIMension statement (e,g, I dim x). 

The BASIC loader loads the machine language into the area 
startingat 49152. You can change the variable AD in line 60 to 
828 or 9*4096 or whatever you like. Line 70 of the loader 
program will modify the non-relocatable machine language 
command 'Ida tabl,x" appropriately for the new starting ad- 
dress. 



For those interested in the algorithm used for computing the 
square root, it is Newton's method, with a good first approxima- 
tion from a 16-entry table. In BASIC, the equivalent program 
would be: 

10 input a 

20 if a = then 90 

30 if a<0 then 120 

40 input " first approx " ;approx 

50 X = approx 

60x = (x + a/x)/2 

70k = k + 1 

80 if k<4 then 60 

90a = x 

100 print" sqr= "a 

110 k = 0: goto 10 

1 20 print " illegal quantity error " 

Enthusiasts of greater speed in the C-64 should note that there 
is room for improvement in most of the other BASIC functions. 
The favored method for approximating functions in the C-64 
ROM seems to be power series. As the present example shows, 
there are sometimes better ways to generate functions. A chal- 
lenge to you programmers out there: try some new methods and 
speed up your programs! 



BASIC Loader 



MC 
CP 

Hi 

GE 
PJ 
G\ 
CE 

NL 
CI 
JB 
JB 
AP 
PG 



100 rem a = 64.1:sys49152:printa 

110 rem where a is the first variable 

1 20 rem result of sqr will be in a 

130ad = 49152:ch = 

140fori=0to122:readx 

150 pokead + i,x:ch=ch + x:next 

1 60 if Choi 3691 then print " error in data 

statements ":end 
170hi = int((ad+107)/256) 
180pokead + 59,hf;pokead + 58,ad+107-hi'256 
1 90 rem new table address for relocated p 
200 data 160. 3,177. 45, 48, 98.136,177 
210 data 45,240, 92 J 65, 45, 24,105. 2 
220data133, 170, 165, 46, 105, 0, 133. 171 
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GN 


230 data 160, 0.132, 93,132, 94,132, 95 


DA 


490 sty temp + 2 




LN 


240 data 132, 96,177,170,106,176, 4,162 


PA 


500 sty temp + 3 




MH 


250 data 128, 134, 93,105, 64,133, 92,200 


LB 


510 sty temp + 4 




DN 


260 data 177, 170, 5, 93, 74, 74, 74, 74 


OH 


520; 




IF 


270data170,189, 107, 32,133, 93,169, 4 





530 ; now find a first approximation 




' DG 


280data133, 172, 169, 92,160, 0, 32,162 


LO 


540 ; to the square root 




M 


290data187, 165, 170, 164, 171, 32, 15,187 


A 


550 ; exponent= exponent/2+40.5 




D 


300 data 169, 92,160, 0, 32,103,184,198 


KE 


560 ; mantissa found from table 




Kl 


310 data 97, 32,199,187,198,172,208,233 


HG 


570 Ida (ptr),y ;get exponent (y = 0) 


J 


DM 


320data166, 170, 164, 171, 32,212,187, 96 


GM 


580 ror ;a = a/a, pop ow bit 


1 

J 


K 


330 data 76, 72,178, 3, 11, 18, 25, 32 


LO 


590 ; carry = 1 when exponent odd 


1 


FP 


340 data 38, 44, 50, 58, 69, 79, 89, 98 


HO 


600 bcs add ;no flag set if odd 


1 [ 
1 


IL 


350data107, 115, 123 


JB 


610 Idx #$80 ;even,sosetafagbit 


1 




PH 


620 stx temp + 1 


i 




ND 


630 add adc #$40 ;a = exponent of 1st appr 




PAL Source Code 


ML 


640 sta temp ;store exponent 






BD 


650 iny ;y=1 




FD 


100 rem faster square root pal source 


LN 


660 da (ptr),y ; mantissa of variable 




PN 


1 10 open8,8,1 , ' 0:fast sqr.obj 


EH 


670 ora temp + 1 ;ifexpon odd add 80 




JE 


1 20 sys 700 


JF 


680 \si ;shiftnybbe right 




FK 


1 30 .opt o8 


L 


690 Isr 




NH 


1 40 • - $c000 


FJ 


700 tsr 


\ 


BP 


150; faster square root 


PJ 


710 sr 




BH 


1 60 ; takes first basic variable and 


LJ 


1 720 lax 




LP 


1 70 ; returns square root in its p ace 


DO 


730 da tabl,x ;getapprox from table 




IG 


1 80 ; uses newton's method with a good 


PK 


740 sta temp + 1 ;store it in temp mantissa 




KG 


190 ; first approximation. 


GM 


750 ; now use newton's method 




OD 


200; 


BN 


760;x = (x + var/x)/2 




LA 


21 var = $2d ; start of variables 


FD 


770 da #$04 




DE 


220 ptr = $aa ; points to variabe 


MD 


780 sta ctr :set counter to 4 




PK 


230 ctr = Sac ; iteration counter 


EA 


790 Ida #<temp 




MJ 


240 temp ~ $5c ; temp store for ft pt# 


LG 


800 Idy #0 




AH 


250; 


F 


810 jsr temfl ;loadfac#1 from temp 


L 


FB 


260 ; rom routines 


LJ 


820 loop Ida ptr 


1 


AG 


270 temfl = $bba2 ; unpack 5c to fac#1 


NM 


830 Idy ptr + 1 




JD 


280divid = $bbOf ;fac#l =var/fac#1 


NG 


840 jsr divid ;dividefac#1 into var 




HP 


290 plus = $b867 ;fac#1 =fac#2 + fac#1 


AE 


850 Ida #<temp 




DG 


300t1tem = $bbc7 ; packfac#1 to5c 


HK 


860 Idy #0 




IL 


310f1mem= $bbd4 ; pack fac#1 to memory 


AJ 


870 jsr plus 


;addtemptofac#1 




Ml 


320 print = $ffd2 ; chrout routine 


DG 


880 dec $61 


;dividefac#1by2 




AM 


330; 


OB 


890 jsr fltem 


;packfac#1 to temp 




BK 


340 Idy #$03 ;get variable's mantissa 


ON 


900 dec ctr 


idecrement the counter 




DP 


350 da (var),y ;check if negative 


PL 


910 bne oop 


;!oop if not zero 




GL 


360 bmi errorexit 


KE 


920 Idx ptr 




NC 


370 dey 


BD 


930 Idy ptr + 1 




JC 


380 da (var),y ;get variable's exponent 


NA 


940 jsr flmem ;packfac#1 to memory 




DK 


390 beq return ;returnifvar = zero 


LG 


950 return rts 




BD 


400 da var ;pointstovar name 


K 


960 errorexitda #$3f ; "?' 




AB 


410 cc 


El 


970 jsr phnl ;print '?' 




HF 


420 adc #$02 ;add 2 so ptr 


AM 


980 rts 


1 


10 


430 sta ptr ;points to variable 


HB 


990 tab .byte 03,1 1 ,18,25,32,38,44,50 




FC 


440 da var + 1 ;and store it 


GM 


1000 .byte 58,69,79,89,98,107,1 15,123 


; 


HN 


450 adc #$00 


CM 


lOIOend 




1 JD 


460 sta ptr + 1 






MM 


470 Idy #$0 ;fill temp with zeroes 






HP 480 sly temp+1 
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Complex Number Arithmetic 
For The Commodore 64 



Thomas Henry 
North Mankato, MN 



BASIC 2-0 of the Commodore 64 supports itiree simple data 
types. These are integers, floating point numbers and strings. 
With the addition of a simple machine language routine, it is 
easy to add a fourth type: complex numbers. The routine 
describedjn this article allows the representation of complex 
numbers by ordered pairs, and additionally supports the four 
basic operations of addition, subtraction, multiplication and 
division. 

The left-bracket, [, is used to alert the Commodore 64 that you 
wish to perform some complex number arithmetic. A corres- 
ponding right-bracket, ], allows the system to go back to normal 
floating point operation. The method by which these brackets 
switch the system over to complex number arithmetic is based 
upon Brian Munshaw's article, "A New Wedge for the Commo- 
dore 64", which appeared in The Transactor, Volume 5, Issue 6, 
pp. 22-25, Refer to Brian's article to learn how new commands 
may be added to the 64 by means of the "Error Wedge", 

Before seeing how to punch this new routine into your computer, 
let's consider the details of representation and syntax. As men- 
tioned above, complex numbers are represented in this system 
by ordered pairs. Whereas highschool algebra books might 
denote a complex number by a + bi, the ordered pair {a,b) is 
used hereinafter. The first entry is always assumed to be the real 
part, while the second entry is the imaginary part. 

The syntax for a complex number operation is (here shown for 
addition): 

[(X,Y) = (A,B) + (C,D)] 

The left-bracket signifies the complex number mode, while the 
right-bracket signifies the end of this mode. The variables X and 
Y are set equal to the results of A+C and B + D, respectively. 
Similar syntax holds for the other three operations. A, B, C and D 
may be any valid combination of values, variables or operands, 
but X and Y (which hold the resulting complex number) must of 
course be variables only. 

Adding The New Commands To Your Computer 

Program 2 shows the complete assembly language listing. While 
it's not necessary to understand this listing to use the system, 
you will still find it to be quite interesting. In particular, the 
source code illustrates how to manipulate variables and perform 
floating point operations from within machine language. Also, 
the source code will be of inestimable value should you desire to 
add some new operations (like complex number conjugation, for 
example). So, give the code a quick glance over to become 
familiar with the several novel actions it performs. 



On the other hand, if you simply wish to get down to business 
and use the program, then Program 1 is the listing you'll want. 
This is a BASIC generator program which creates a working copy 
of the complex number routine on disk, ready for use. First, 
enter this program into your Commodore 64. Now run it. A 
checksum handler will halt the program if there are errors in the 
DATA statements. Proofread the program and make any correc- 
tions as needed. If you make it past the checksum detector, then 
the complex number routine will be written to disk under the 
name of 'COMPLEX. ML". This is the program that you wiil use 
from now on. You may discard Program 1 now, as it has served 
its purpose. 

Using The Complex Number Package 

At this point you can load the package into memory with: 

load "connpJex.ml\8,1 

The program will load into memory from $0000 through $C1C6. 
You should enter NEW at this point, then activate the routine 
with: 

sys49152 

This engages the complex number commands, making them 
available for use until you shut the computer off. To become 
familiar with the syntax, try out some examples. Here are a 
couple to get you started; 

100 input a,b 
110 imputed 
120[(e,f) = (a,b)-(c,d)] 
130 print e,f 

100p = 12:q = 13.1 
110r = 54.1:s = 3,14 
120[(w,y) = {2-p.3*q)/(r/12,s}] 

130 printw,y 

In the first example, the complex numbers (A3) and (C.D) are 
input. The latter is subtracted from the former and the resuU is 
printed out. In this case, all of the parts of all of the complex 
numbers are variables (i.e.. A, B, C, D, E and F). 

Example two demonstrates that the parts of the complex num- 
bers may actually be quite complicated. Here the complex 
number (2*P,3*Q) is divided by {R/12,S) and the result is left in 
the pair of variables W and Y {W is the real part and Y is the 
imaginary part). 
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Some Interesting Details 

The real and imaginary parts of the two operands may be any 
valid combination of values, variables and ordinary numeric 
operators. Both integers and floating point numbers may be 
used. The real and imaginary parts of the resull must be 
variables (since they store the final result}. These too may be 
integer or floating point types. Be forewarned, however, that in 
general the product or difference of two complex numbers made 
up of integer components rarely lead to complex numbers with 
integer components. In this case, the Commodore 64 will 
truncate the fractional part. 

r 

All of the values of the components in the complex numbers 
must, of course, be numeric in type. Attempting to use a string 
will lead to a TYPE MISMATCH ERROR. And as is the case with 
integers and floating point numbers, division by zero is unde- 
fined and will yield a DIVISION BY ZERO ERROR. 

The algorithms used to compute these various results are: 

(a,b)-+-(c,d) = (a + c,b-f-d) 

(a,b)-(c,d) = {a-c,b-d) 

(a,b)»(c,d)=(a*c-b*d,a*d + b"C) 

(a,b)/(c,d) = ((a*c + b*d)/(c*c + d*d),{b*c-a*d)/(c*c + d*d)) 



Program 1: Creates disk fUe " COMPLEX.ML " 



1 



AG 
EM 
EE 
Dl 
LB 
MG 
FP 
Gl 
MM 
Kl 
LO 
KL 
KP 
MA 
AP 
PA 
CB 
OE 
DA 
MD 
EL 
HC 
HK 
JC 
CO 
BP 
DM 



1 00 rem prg file gen for complex.ml 

110ch = 

120 fora = 49152 to 49606 

1 30 read x: ch = ch + x: next 

1 40 if ch = 55928 then 160 

1 50 print " error in data statements ' :end 

1 60 open8,8,8, " O:complex.ml,p,w ' 

170 print#8,chr$(0);chr$(192); 

1 80 restore 

190 fora-49152 to 49606 

200 readx: print#8,chr$(x);: next 

210 close 8 

220 rem 

230data169, 11,141, 0, 3,169,192,141 

240 data 1, 3, 96,224, 11,240, 3, 76 

250 data 139, 227, 32,121, 0,201, 91,208 

260 data 246, 104, 104, 32,115, 0, 32,250 

270 data 174. 32,139,176, 32,141,173,141 

280 data 168, 2,140,169. 2,165, 14,141 

290 data 167, 2, 32,253,174, 32,139,176 

300 data 32,141,173.141,171, 2,140,172 

310 data 2,165, 14,141,170, 2, 32,247 

320data174, 169, 178, 32,255,174, 32,250 

330data174, 32,138,173,162,173,160, 2 

340 data 32,212,187, 32,253,174, 32,138 

350 data 173, 162, 178,160, 2. 32,212,187 

360 data 32,247,174,141,193, 2, 32,115 



HH 

GJ 

LD 

PN 

JM 

JP 

PC 

OC 

Fl 

GN 

MO 

HJ 

BD 

FB 

AL 

IJ 

LG 

DG 

EM 

DE 

HB 

GJ 

IK 

KG 

CO 

FL 

Al 

Jl 

LJ 

GD 

LM 

PD 

DK 

GB 

AG 

LL 

DC 

HA 

GB 

HD 

iF 

HK 

HP 



370 data 0, 
380 data 183, 
390 data 174, 
400 data 247, 
410 data 193, 
420 data 240, 
430 data 193, 
440 data 76, 
450 data 160, 
460 data 172, 
470 data 193, 
480 data 32, 
490 data 2, 
500 data 32, 
510 data 188, 
520 data 161, 
530 data 169, 
540 data 97, 
550 data 187, 
560 data 32, 
570 data 193, 
580 data 184, 
590 data 32, 
600 data 160, 
610 data 0, 
620 data 148, 
630 data 186, 
640 data 103, 
650 data 28, 
660 data 1 90, 
670 data 32, 
680 data 15, 
690 data 32, 
700 data 2, 
710 data 134, 
720 data 193, 
730 data 184, 
740 data 76, 
750 data 247. 
760 data 188, 
770 data 44, 
780 data 32, 
790 data 69, 



32, 250, 
160, 2, 

32, 138, 

174,169, 

2,201, 

17,201, 

201,173, 

8,175, 

2, 32, 

169, 2, 

32.155, 
135. 193, 
173,170, 
180,191, 

32, 184, 
193, 32. 

87,160, 
208, 3, 
169,173, 

12, 188, 

32, 199, 

193,174, 

212, 187, 

2, 32, 

32, 80, 
193,169, 
173,168, 
184,173, 

32, 12, 
193, 32, 
174,193, 
187, 76. 
177,193, 
173,167, 

73, 132, 
2, 224, 

76, 80, 
162,187, 
169,183, 
160, 2, 
169, 92, 
190,193, 
110,133, 



174, 32, 
32,212, 

173, 32, 
93, 32, 

170,240, 
172,208, 
208, 3, 
32, 161, 
135, 193, 
173,167, 
193,169, 

174, 171, 
2, 32, 

32,167, 
193, 32, 

12.188, 
0, 32, 

76, 138, 
160, 2, 

32, 161, 

187, 32, 

168, 2, 
32,148, 
40,186, 

184, 32, 

183, 160, 

2,172, 

193, 2, 

188, 32, 
18,187, 

169, 92, 
115,193, 
174, 168, 

2. 32, 

74, 76, 

170,208, 

184,169, 

169,188, 

160, 2. 

76, 212, 

160, 0, 

76, 43, 

111,165, 



138,173,162 
187, 32,253 
167,193, 32 
255,174,173 

21,201,171 
3, 76, 1 

76,216,192 
193,169,173 

174.168, 2 
2, 32,128 

178,160, 2 
2, 172, 172 
128,193, 96 
193, 32, 12 
202.187, 32 

32, 184, 193 
103,184,165 
187, 32, 202 

32,162,187 
193, 32,184 
155,193, 32 

172.169, 2 
193,169,188 
169, 92,160 
199, 187, 32 

2, 32, 40 
169, 2, 32 
201.172.240 
174,193, 32 

32, 203, 192 
160, 0. 32 

32,203.192 

2,172,169 

128,193, 96 

194,169,174 

3, 76, 103 
178,160, 2 
160, 2,208 
208,241,162 
187,169, 87 

76,162,187 
186,165,102 
97, 96 



Program 2: PAL Source Code 



LC 
LB 
JE 
FK 
CA 
EO 
KM 
10 
EN 
10 
ON 



1 00 rem complex number arithmetic pal source 

110open8,8,1,"0:complex.ml 

1 20 sys700 

1 30 .opt 08 

140; 

160;* 
170 ;» 
180;* 
190 ;• 
200;* 



complex number arithmetic 
tor the commodore 64 

+ ,-, * and / are all supported as 
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HP 


210 ;* well as compfex numbers • 


F 


850 


jsr chrget 


fetch next character 




DM 


220 ;• (represented as ordered pairs). * 


KA 


860 


jsr chkopn 


check for open paren 




AB 


230;' 




« 


BH 


870 


jsr ptrget 


find rea output 




m 


240 i' 


thomas henry • 


OM 


880 


jsr chknum 


check if numeric 




EC 


250;* 




t 


AP 


890; 








CF 


260 ;****tfff^ftt + t««»:4:4:*4: + «4LPfi««^Pfi««1i««t*4tt 


Gl 


900 


sta rea ot + 1 ; 


sb 




El 


270; 






GP 


910 


sly rea ot + 2 ; 


msb 




ON 


280 intfig = 


$0e ; 


$00 = ttpl,$80 = integer 


JF 


920 


Ida intfig ; 


save integer flag 




FP 


290forpnt = 


$49 ; 


temp pointer in list 


OA 


930 


sta rea ot 






EK 


SOOfacexp = 


$61 ; 


fltpntaccum, exponent 


FK 


940 


jsr chkcom ; 


check for comma 




CF 


31 facsgn = 


$66 ; 


fitpn acGum, sign 


CO 


950 


jsr ptrget ; 


find img output 


KM 


320 argsgn - 


$6e ; 


fitpnt accum #2, sign 


OB 


960 


jsr chknum ; 


check if numeric 




HD 


330 acisgn ^ 


$6t ; 


fad & fac2 sign cmp flag 


BC 


970 


sta imagot + 1 ; 


Isb 




OL 


, 340chrget = 


$73 ; 


basic character gel rtn 


PI 


980 


sty imagot + 2 :msb 1! 




OL 


350 chrgot = 


$79 ; 


re-get old character 


HI 


990 


da intfig 






FJ 


360 rea ol = 


S02a7 ; 


real part output pnt 


BG 


1000 


sta imagot 


;save integer fiag 


1 


IF 


, 370 imagot = 


rea lot + 3 ; 


irrg part output pnt 


IH 


1010 


jsr chkcis 


; check for close paren 


1 


10 


380reaM 


imagot + 3 ; 


1st number rea part 


CA 


1020 


Ida tf^t2 


;checkfor' = ' 




MP 


'390Jmag1 = 


reafl + 5 ; 


1st number img part 


HI 


1030 


jsr chkchr 






JM 


400 reat2 = 


imagi + 5 ; 


2nd number rea part 


OL 


1040 


jsr chkopn 


;check for open paren 




FP 


410iniag2 = 


real2 + 5 ; 


2nd number img part 


PA 


1050 


jsr frmnum 


;evaluaiereal#1 




GJ 


420cmxop = 


imag2 + 5 ; 


comp ex # operator 


HO 


1060 


Idx #<rea1 






ON 


430 i error = 


$0300 ; 


vector to error routine 


BP 


1070 


Idy #>rea1 






BM 


440 varstr 


$a9c2 ; 


store numeric variab e 


MN 


1080 


jsr movmf 


;save it for later 




CN 


450 frmnum = 


$ad8a ; 


evaluate a numeric 


LD 


1090 


jsr chkcom 


;check for comma 




CH 


460 chknum = 


$aded ; 


check for number 


■ PL 


1100 


jsr frmnum 


;evaluateimgtf1 




LP 


470 chkcis = 


$aef7 ; 


check tor close paren 


EB 


1110 


Idx #<imag1 






DB 


480chkopn = 


$aefa ; 


check for open paren 


OB 


1120 


Idy #>imag1 






BC 


490 chkcom = 


Saefd ; 


check for comma 


OA 


1130 


jsr movmf 


;save it for later 




Dl 


500chkchr ^ 


$aeft ; 


checktorchr inacc 


KP 


1140 


jsr chkcis 


; check for dose paren 




FD 


SlOsnerr 


Sal08 ; 


do syntax error' 


PBl 


1150 


sta cmxop 


;save operator 




ID 


520 ptrget = 


$t>09b 


,find variable 


PHj 


1160 


jsr chrget 


;get next character 




EJ 


530 fsub 


$b850 


;fac1 = (a:lsb,y:msb)-fac1 


AE : 


1170 


jsr chkopn 


icheck for open paren 




KD 


540 f add = 


Sb867 


;tac1 = (a;1sb,y:msb) + fad 


EJ ! 


1180 


jsr frmnum 


;evaluatereal#2 




GP 


550 faddt - 


$b86a 


;fac1 = fac2 + facl (setup) 


MG 


1190 


dx #<rea2 






MF 


560fmut = 


$ba28 


;fac1 = (a:sb,y:msb)*fac1 


GH 


1200 


dy #>rea2 






LL 


570 tdiv 


$bbOf 


;fac1 = (a:sb,y;msb)/fac1 


OF 


1210 


jsr movmf 


;save it for later 




GK 


580 fdivl 


$bb12 


;fac1 = fac2/tac1 


NL 


1220 


jsr chkcom 


; check for comma 




DC 


590 divzer = 


$bb8a 


;'divisionbyzero' 


DE 


1230 


Jsr frmnum 


;evaluate img #2 




KJ 


eOOmovfm = 


$bba2 


;fac1 = (a:lsb,y;msb) 


DA 


1240 


jsr otimg2 


;save it for later 




IK 


610ft5c 


$bbc7 


;readfad to$5c-$60 


IG 


1250 


jsr chkcis 


;check for close paren 




NM 


620 tlt57 


$bbca 


ireadfaci to$57-$5b 


DN 


1260 


Ida r 


1 

;checkfor ']' 




FD 


630movmf = 


$bbd4 ; 


;(x:sb,y.msb) = fad 


HH 


1270 


jsr chkchr 


J 




NN 


640 movaf = 


$bcOc ; 


fac2 = facT 


GH 


1280; 


J 






DH 


650 negop = 


$bfb4 


tad = -tad 


FF 


1290 


Ida cmxop 


;restore operator 




FM 


660 olderr = 


$e3Sb ; 


continue o d error routine 


HA 


1300 


cmp #$aa 


;"isit + ? 




EB 


670; 






DB 


1310 


beq cmx4 


;branchif jtis 




JJ 


680 * = $cOOO 






OJ 


1320; 








C 


690; 

1 ' 






PC 


1330 


cmp#$ab 


;"'isit-? 




H 


700 init Ida 


#<cmxrtn ; 


change error vector 


BD 


1340 


beq cmx4 


;branchit ilis 




NO 


710 sta 


ierror 




ML 


1350, 








kq: 

1 


720 Jda 


#>cmxrtn 




IE 


1360 


cmp #$ac 


;''isit*? 




ic : 

1 


730 sta 


ierror +1 




CM 


1370 


bne cmx2 


.branch it not 




AN 


740 rts 






EG 


1380 


jmp cmx8 






EG 


750; 






EO 


1390; 








AN 


760 crtfxrtn cpx 


#SOb ; 


; ■ syntax-error ? 


ci 


1400 cmx2 


cmp #$ad 


;"isit/? 




GE 


770 bee 


\ cmxl ; 


;yes. move on. 


00 


1410 


bne cmx3 


;branchif not 




FD 


780 cmxO jmp 


derr ; 


,no, do regular error routine 


EA 


1420 


jmp cmx6 






Ml 


790; 






MA 


1430; 








EA 


800 cmxl jsf 


chrgot ; 


reget offending character 


NP 


1 440 cmx3 


jmp snerr 


;' syntax error' 




MF 


810 cmp#'[' ; 


, ' left-bracket? 


AC 


1450; 








EC 


820 bne 


! cmxO ; 


:no, ordinary error 


FM 


1460 cmx4 


jsr inref2 


;bringin real #2 




IP 


830 pla 


1 


pop junk from stack 


FC 


1470 


Ida #<rea 1 






AN 


840 pla 






LI 


1480 


Idy #>real1 
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PK 


1490 


jsf add sub 


;do + or -. 


GF 


2130 jsr fdlvt 


' ""■■ 1. 
;fac1 = (a*d + b-c)/(c»e + d-d) 




IC 


1500 


Idx realot+1 




KH 


2140 jsr cmx5 


;store Imaginary part 




KD 


1510 


dy realot + 2 




CG 


2150 jsr m57 


;fac1 = mag squared 




KE 


1520 


da realot 


; integer fag 


AG 


2160 Ida #$5c 


;fac1 = (a*c-b*d)/(c'c + d"d) 




BM 


1530 


jsr storfp 


; store real resu t 


NP 


2170 Idy noo 






CD 


1540 


jsr infmg2 


;bring in jmg#2 


IE 


2130 jsr fdiv 


;final re^ft 




AH 


1550 


da #<imag1 




CO 


2190 jmp cmxlO 






GN 


1560 


dy #>jmag1 




OA 


2200; 






BN 


1570 


jsr addsub 


;do + or - 


GM 


2210 cmx9 jsr emx5 


; store imaginary part 




PP 


1580cmx5 


dx iniagot + " 


1 


DG 


2220 jsr flf5c 


;fac1 = reaf part 




OA 


1590 


dy imagot + 2 


GJ 


2230cmx10 Idx realot + 1 


1 




JP 


1600 


Ida imagol 


; integer flag 


EB 


2240 Idy realot + 2 






BP 


1610 . 


jsr storfp 


;storeimg result 


EC 


2250 Ida realot 


; integer fag 




AE 


1620 


fis 




OE 


2260 jsr storfp 


;store real part 




EN 


1630; 






KM 


2270 rts 






AG 


1640cmx6 


jsr negop 


;negate d for conjugate 


OF 


2280; 






ND 


1650 


jsr otimg2 


;save d 


AE 


2290 ;/// eomp ex number utilities /// H 




BK 


1660 


jsr movaf 


;fac2 - d 


CH 


2300; 






GA 


1670 


jsr emu It 


;facl = d*d 


FO 


2310 storfp stx forpnt 






AM 


1660 

■ 


jsr ftt57 


;saved-d 


NH 


2320 sty forpnt -fl 






PF 


1690 


jsr inre 2 


ibnnginc 


HK 


2330 jmp varstr 


;go store value 




FM 


1700 


jsr movaf 


;fac2 = 


KJ 


2340; 


\^ 




IC 


1710 


jsr cmut 


;facl = C"C 


FO 


2350 addsub Idx cmxop 


;cheek operator 




GA 


1720 


da #$57 




EF 


2360 cpx #$aa 


i'isit + ? 




FE 


1730 


dy #$00 


J 


CD 


2370 bne asl 






AE 


1740 


jsr fadd 


;facl = C'C + d*d 


OC 


2380 imp tadd 


;go do + 




KA 


1750 


Ida facexp 


; check tor zero 


MM 


2390: 






AW 


1760 


bne cmx7 


; branch it okay 


OE 


2400 asl jmp fsub 






IH 


1770 


jmp divzer 


;'divisionbyzero* 


AC 


2410; 






KG 


1780; 






GH 


2420 inimgl Ida #<imag1 


; bring in imagi 




OG 


1790 cmx7 


jsr flt57 


;save c*c + d*d 


MD 


2430 dy #>imag1 






EH 


1800 cmx8 


da #<rea 1 




LP 


2440 cmovfm jmp movfm 






FN 


1810 


Idy #>rea1 




lA 


2450; 






FH 


1820 


jsr movfm 


;bringina 


EK 


2460inimg2 da #<imag2 


;bringinimag2 




PD 


1830 


jsr movaf 


;fac2 = a 


HG 


2470 idy #>imag2 


'm.e \J 




FP 


1840 


jsr inr^2 


[bring in c 


NK 


2480 bne cmovfm 


; branch always 




MK 


1850 


jsr emu t 


;facl = a"C 


AD 


2490; 


1* 




EL 


1860 


jsr fll5c 


;save it 


OP 


2500inrel2 da #<real2 


;bringinreal2 




GB 


1870 


jsr inimg2 


;bringind 


EJ 


2510 Idy #>real2 






MM 


1880 


jsr cmult 


;fac1 ^ a*d 


FN 


2520 bne cmovfm 


;branchaways 




OK 


1890 


Idx reafot-f 1 




IF 


2530; 


J 




AM 


1900 


Idy rea ot + 2 




HL 


2540otimg2 dx #<imag2 


; store imag2 




MB 


1910 


jsr movmf 


;savea*d 


HL 


2550 Idy #>imag2 






AE 


1920 


jsr inimgl 


;bring in b 


NE 


2560 jmp movmf 


;brancfi always 




PO 


1930 


Ida #<imag2 




Al 


2570; 


J 




FF 


1940 


Idy #>fmag2 




BD 


2580f]f57 Ida #$57 






JB 


1950 


jsr fmult 


;fac1 = b*d 


JP 


2590 .byte$2c 






GO 


1960 


Ida #$5c 




JG 


2600 ffSc Ida #$5c 






FD 


' 1970 


fdy #$00 




PL 


2610 Idy #$00 






FH 


1980 


jsr fsub 


;fac1 = a*c- b'd 


AC 


2620 jmp movfm 


;move to fad 




EN 


1990 


jsr tlt5c 


;saveitback 


ML 


2630; 






AJ 


2000 


jsr inimgl 


; bring in b 


MH 


2640 cmult jsr adjsgn 


;setLJpformutiply 




EE 


2010 


Ida #<real2 




JL 


2650 jmp fmut-fS 


;facl = fad * fac2 




KK 


2020 


dy #>real2 




KN 


2660; 






HG 


2030 


jsr fmult 


;fac1 = b*c 


GB 


2670 adjsgn Ida facsgn 


; adjust sign 







2040 


Ida rea ot-t-1 




CB 


2680 eor argsgn 






GF 


2050 


Idy realot + 2 


■ 


IL 


2690 sta arisgn 






EH 


2060 


jsr fadd 


;fac1 = a-d + b'C 


JH 


2700 Ida facexp 






CF 


2070 


da cmxop 


; check operator 


CI 


2710 rls 






IB 


2080 


cmp #$ac 


; " is it • ? 


GB 


2720; 






10 


2090 


beq emx9 


;yes, branch 


Gl 


2730 end 






JL 


2100 


jsr movaf 


;fac2 - a*d + b*c 








KO 


2110 


jsr flf57 


;fac1 = mag squared 






JE 2120 


jsr adjsgn 


ladjustsign 
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FAC 1 Facts 



John Houghton 
Collingwood, Ontario 



QUESTION: In machine language, how do yoa muUiply 3x4? 

ANSWER: Weil, you take the multipUcand (3) and add it to itself, the 
number of times in the multiplier (4). 

QUESTION: OK! Then how do you multiply 10. 125 x 6.375 ? 

ANSWER: Sorry, anything past integer arithmetic in M.L gets left 
alone. Either do it in Basic or not at all. 

"The time has come" the walrus said, ''to think of many things. 
Like. . ." floating point arithmetic 

Remember way back when, in high school algebra, something 
called logarithms was discussed? Well, floating point notation is 
similar in nature. Instead of base 10 notation, F.R on the computer 
uses base 2. Therefore, a number is the equivalent of the Mantissa 
times 2 to the power of the Exponent (In simplified terms). Sounds 
confusing, and it can be. especially when it is time lo explain how to 
add, multiply etc., but exact knowledge of how RP. works is not 
needed to be able to use it in a machine language program. In fact 
the best advice is to cheat and let ye olde trusty micro-processor do 
the work. All that is needed to be known are the ground rules by 
which to operate. 

The information discussed in this article pertains directly to the 
Commodore 64 but other Commodore machines will have similar 
routines in their ROM, just check the ROM memory maps. After a 
discussion of these ROM routines, a short PAL source code program 
will run through some of the operations. 

There are two floating point accumulators in the 64, PACI at $61 to 
$65 and FAC2 at $69 to $6e. $61 and $69 contain the exponents, 
$62 to $65 and $6a to 6d contain the 4 byte mantissa and $66 and 
$6f contain the signs for each number. There is a main work/ 
storage area at $57 to $60 used for RP. crunching. As well there are 
some miscellaneous but important locations at $67/$6S and $6f to 
$72. 

Now here is a list of some of the routines for manipulating floating 
point numbers. 

$bcf3: convert ascii string to FACl 

-To use this routine place an ascii numeric string, with a after the 

string, in a buffer. Point the CHRGET pointers at $7a/$7b to the 

first character and call CHRGOT before entry. 
-This routine is called by $ad9e and $ae83 routines. 
-it clears FACl, FAC2 and numeric work area $5d to $60 before 

converting the string to RP notation. Therefore preserve anything 

in these three areas that are needed laler. 
-It works like the VAL function in basic, indeed VAL calls this 

routine, and will ignore alphabetic entry after an ascii numeric 

string. 
-It will accept scientific notation incorporating an ^e' and a leading 

' + 'or'-\ 



$bbc7: move FACl to memory. 

-This routine has several entry points depending on where FACl is 

to be stored. 
-Enter at $bbc7 and FACl goes to $5c-$60 (and will get clobbered if 

$bcf3 is called again). 
-Enter at $bbca and FACl goes to $57-S5b {and is immune to $bcf3 

calls). 
-Enter at $bbd4 and FACl goes to the address pointed to by the -X 

{low) and .Y (high) registers. 

$bba2: move memory to FAC L 

-Point the .A (low) and .Y (high) registers at memory and this 
routine loads the 5 byte floating point number into FACl . 

$ba8c; move memory to FAC2. 

-Same as dbove for FAC2. 

SbcOc: round and move FACl to FAC2. 
$bcOf: move FACl to FAC2 no rounding. 
Sbbfc: move FAC2 to FACl 
$bclb: round FACl 

$bc5b: compare FACl to memory. 

-Point the .A (low) and ,Y (high) registers to an RP number in 
memory, and this routine will return a in .A if they are the same, 
al in .A if PACI is greater than memory and $f fin .A if memory is 
greater than PACK 

Sb7f7: convert FACl to 2 byte integen 

-,A and .Y as well as $14/$15 contain the integer. 
(Note: this only works for positive values. If you know the value in 
FACl is positive, set the sign bit at $66 to zero. Otherwise, use 
Sbl bf to convert to a signed integer, or $bc9b to get a 4 byte signed 
integer.) 

$bc9b: convert FACl to 4 byte integer, 

-stored in FACl mantissa area $62 to $65, 

$bddd: convert facl to ascii string. 

-The ascii string is stored at $0100 with a after the string and the 
.A (low) and -Y (high) registers pointing to the string address. In the 
process, FACl is altered as well as memory area $5d and $5e. To 
print the string after this routine make a direct call to $able- 

Ti»e next routines need the address of the floating point number 
stored in the ,A and -Y registers before being called. They all move 
that number to FAC2 and then perform the appropriate operation. 

$b850: subtract memory form FACl 
$b867: add memory to FAC 1 
$ba2S: multiply FACl by memory 
SbbOf: divide memory by FAC 1 

An alternative to these arithmetic operations is to move the needed 
number to FAC2 by one of the previously listed move routines. Then 
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for !he add and divide routines load the A or X register with $61 , and 
call one of the following: 

Sb853; sublraclFAC2fromFACl 

Sb86a: addFAC2 toFACl 

$ba30: multiply FACl by FAC2 

$bbl2: divide FAC2 by FACl 

Sbf7b: raise FAC2 to the power of FACl 

Other useful routines are listed below. 

$b849: add ,5 to FACl (no pointers needed) 

Sbccc: perform INT (calls Sbc9b and reconverts to F.P,) 

Sbae2: multiply FACl by 10. 

$bafe: divide FACl by 10. 

$e264: perform COS to FAC L 

$e26b: perform SIN to FAC L 

Se2b4: perform TAN to FACl. 

$e30e; perform ATN to FAC L 

The trigonometry functions above need the angle, expressed in 
radians, stored in FACL 

And there are some five byte floating point constants stored in ROM 
that you might want to use. 



$bfll: 

$b9bc: 

$baf9: 

$aea8; 

$e2e0: 

$e2e5: 

Se2ea: 



constant ,5 
constant 1 
constant 10 
constant pi 
constant pi/ 2 
constant 2* pi 
constant 1/4 



i 



There are some other routines in ROM that perform overflow 
checking, exponent addition, and sign checking that will need to be 
accessed when getting into long and complex formulas but for now 
the routines outlined will get the fear of using floating point 
numbers from a machine language prc^ram out of the way. 

Now onto a short discussion of the program. First, BUFFR} is 
converted from an ascii string to an F.P. number in FACl and 
moved to memory location $57. Then BUFFR2 is similarly con- 
verted and stored al $5c. The two numbers are then multiplied and 
stored in $57. Finally the two original numbers are added together 
and a check to see if the sum is less than the product. If it is less, 
then keep adding until the sum exceeds the product. The program 
will then print the sum to the screen, print the product to the screen 
and prim the number of times it added the two numbers together- 
Here are some alterations to the program. Try messing around with 
the ascii numbers and see what other values will be produced. 
Change the arithmetic operations in lines 5 1 or 590, Maybe use the 
move routine at $bcOc in line 600 instead, to see what effect takes 
place on a lot of additions. Use lai^e original numbers to find out 
when scientific notation displays take over. 

That's probably enough to make the old wood start burning, but it 
will be interesting to learn who will be the first to convert Chris 
Zamara^s SPRITE ROTATE from VOL. 5 iSS, 1 entirely into M,L??? 



DA 


lOOrejrii 


Hv* 


iac^ tacts --• 


MG 


110 rem ■ 


'•t by John houghton --• 


MG 


120femi 


»•• oollingwood oni >■•■ 


KK 


140 rem 








ED 


1 50 rem i 


Dal source code 




LH 


170sys700 






GC 


190 opt 00 






OD 


200, 








DM 


210 -- ScOOO 






CF 


220; 








AO 


230 ,a routine lo demonstrate the use 


CN 


240 \q\ floating point numbers, the 


NO 


250 ; associated floating point 


LB 


260 , accumulators and rom rouTines. 


El 


270; 








LD 


280 


Ida 


#$00 




OB 


290 


sta 


count 


;clear integer 


HH 


300 


sta 


count + 1 


.storage 


BN 


310 


Ida 


$7a 


: store chrgel 


BB 


320 


sta 


getio 


; pointers 


KA 


330 


Ida 


$7b 




GA 


340 


sta 


gethi 




CI 


350 


Ida 


#<buffrl 


; point chrget to 


FH 


360 


sta 


S7a 


; 1st number 


FA 


370 


Ida 


*>buftrl 




KH 


380 


sta 


$7b 




IH 


390 


fsr 


$0079 


icail chrgot 


JB 


400 


jsr 


$bct3 


;ascii TO fad 


BJ 


410 


jsr 


Sbbca 


ilacl 10 mem $57 


MM 


420 


Ida 


#<buttr2 


; point chrget lo 


o\ 


430 


sta 


S7a 


■2nd number 


PE 


440 


Ida 


#>buffr2 




AM 


450 


sta 


$7b 




OL 


460 


jsr 


$0079 


;call chrgot 


PF 


470 


|Sr 


Sbcf3 


lascii tofacl 


JN 


480 


jsr 


$bbc7 


;faci lomem$5c 


JD 


490 


Ida 


#$57 




HH 


500 


Idy 


frsoo 




PH 


510 


jsr 


$ba28 


;$57lotac2&mult 


LD 


520 


jsr 


$bbca 


; product To $57 


II 


530, 








Fl 


540 add 


■i= 


• 




EK 


550 


Ida 


#$5c 




DL 


560 


Idy 


ff$00 




PG 


570 


jsr 


$bba2 


;S5c to fad 


NN 


580 


Idx 


$61 


; exponent lad 


JG 


590 


jsr 


$b86a 


;add taG2 tofacl 


JH 


600 


jsr 


$bcOt 


iSum to fac2 


FD 


610 


inc 


count 


;inc number oi 


IF 


620 


bne 


nex 


;addilJons 


BF 


630 


inc 


count* 1 




GP 


640; 








PF 


650 nex 


= 


- 




CO 


660 


Ida 


#$S7 




BC 


670 


Idy 


#$00 




BN 


680 


fsr 


Sbc5b 


;compare sum & prod 


N1 


690 


bmi 


add 


ilacl < $57 


JC 


700 


jsr 


$bddd 


,faci to ascii 


Ml 


710 


jsr 


Sable 


; print sum 


DE 


720 


Ida 


#$0d 




DH ■ 


730 


jsr 


$ffd2 




CD 


740 


Ida 


#$57 




BH 


750 


Idy 


#$00 




BC 


760 


jsr 


$bba2 


,$57 to lacl 


PG 


770 


jsr 


$bddd 


;facl to ascii 


CN ' 

1 


780 


jsr 


Sable 


; print product 


Jl 


790 


Ida 


#$0d 




JL ■ 


800 


jsr 


$ffd2 




EO 


810 


Ida 


count + 1 


;get count of 


NA 


820 


Idx 


count 


; add it ions convert 


PC 


830 


jsr 


$bdcd 


;ini lo ascii 


CB 


840 


jsr 


$abie 


ipTint count 


AO 


850 


Ida 


getIo 




GB 


860 


sta 


$7a 


; restore chrgel 


KN 


870 


Ida 


gethi 




OG 


880 


sta 


S7b 




GG 


890 


rts 






KP 


900; 








NK 


9 1 oount • - « 


.+2 




HO 


920 gollo 


* ^ 4 


► + 1 




NM 


930 gel^^^ 


.-. + 1 




CC 


940, 








PP 


950 buffrl .asc 


. "10125' 




Al 


960 


byte $00 




AE 


970; 








DN 


960 buffr2 ,asc 


; "6.375" 




OJ 


990 


byte SOO 





1 
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High-Speed Integer 


Donald A. Branson 


Multiplies and Divides 


St. Louis, Missouri 


. . .If your processor has multiply/divide commands, 


no problem. However, if it does not. . . 




[f you have written any amount of assembler code, you have 


1*1 = 


probably encountered a situation where you wanted to do a multip i- 


1*2 = 2 


cation or a division. If your processor has multiply/divide com- 


* 
* 


mands, no problem. However, if it does not (as in Jhe case of the 


* 

2*1=2 
2*2 -4 


6502-series CPU in Commodore's 8-bit computers), you may have 


done a multiply by adding an operand to itself, decrementing the 


operand at the same time until it reaches zero. 


* 


This is probably the most straightforward way to do a multiply, but a 


When we multiply decimal, we have this tabe in our heads. 


binary mutiply can be done the same way a person multiplies a 


However, the table is simplified when we do binary multiplication. If 


decimal number by hand. This way is as easy to do and, in all but a 


fact, it is simplified to the point that the result of a multiply can be 


few cases, is quite a bit faster. 


one of two things: a zero bit or a one bit. 


Multiplication 


A result table does not need to be kept for binary multiplication. The 




table is effectively implied in the operands. 


First, let's look at the way a decimal multiply is done, in order to 




draw attention to some key elements in any multiply- The procedure 


For example: 


is expanded on the right to show more specifically what is happen- 




ing here. 


15 = $0F = o/oOOOO 1111 




35 = $23 = %0010 0011 


35 1) 5'5 = 25 




X 15 2) 5*30 = 150 


00001111 Ml 


175 3) 10»5 = 50 


X 00100011 M2 


350 41 10*30 = 300 


00001111 


525 525 


00001 m 




00000000 


It can be seen that 35 has not been added to itself 15 times or 15 


00000000 


added to itself 35 hmes. Doing it that way would take longer and, if 


00000000 


you're doing it by hand, more prone to error. 


00001111 




00000000 


What has been done is to multiply each digit in the first number 


00000000 


against all the digits in the other number. 


000001000001101 R 




($020D = 525) 


This same method can be applied to binary multiplication. 




n 


Now to ook at the process in a way that can be easily represented in 


In order to ook at one binary digit (bit) at a lime, a combination of 


a computer. We'll call the mutiplicand Ml, the multiplier M2, and 


the LSR and ROR operations is used to shift the bit into the carry bit, 


the fie d where the result is left R, like this: 


where it can be examined with a BCC or BCS operation. In this way, 




one digit can be mu tiplied at a time. If this were a decimal multiply, 


Ml: 0000 0000 0000 1111 


we would have to have a table of results for each possible combina- 


M2:0000 0000 0010 0011 


tion of one digit multip ies, ike this: 


R: 0000 0000 0000 0000 
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Since the resul! will be sixteen bits (525 > 255), all the fields are 
represented as sixteen bits. 

First, Ml is shifted right, so that each bit can be looked at from right 
to left as in the decimal multiply shown before. As you can see in the 
example of binary multiplication above, the digit can be either one 
or zero, and the result of the single-digit multiply is either zero, or a 
dupiicateofM2,properlyshifted to the left. After each digit in Ml is 
shifted into the carry bit, M2 is added to R if the carry is one, then 
M2 is shifted left, in preparation for the next digit. 

Here. 'SR' stands for shift right, ^SL' for shift left. 



pass 



carry 




1- SRM1; 0000 0000 0000 0111 1 
R = R + M2: 0000 0000 0010 0011 

SLM2; 0000 0000 0100 0110 

2- SRM1: 0000 0000 0000 0011 1 
R = R + M2: 0000 0000 0110 1001 

SLM2; 0000 0000 1000 1100 

3- SRM1: 0000 0000 0000 0001 1 
R = R + M2: 0000 0000 1111 0101 

SLM2: 0000 0001 0001 1000 

4- SRM1: 0000 0000 0000 0000 1 
R = R4-M2: 0000 0010 0000 1101 

SLM2: 0000 0010 0011 0000 

Note that we can stop here, because Ml is zero, and the carry bit 
will no longer be set as a result of shifting Ml , and therefore M2 will 
not be added to R any more times. At this point, the result of the 
multiply is left in R. 

Here is how this process looks in assembler: 



» 




r 



MLOOPEQU 
LSR 
ROR 
BCC 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
SHIFT EQU 
ASL 
ROL 
LDA 
BNE 
LDA 
BNE 
RTS 
M1 HEX 

M2 HEX 

R HEX 



inPAL-MLOOP = ' 

SRM1 

the carry from Ml -* Ml +1 

add on carry set 

R=R+M2 



Ml 

M1+1 

SHIFT 

M2 + 1 
R + 1 
R + 1 
M2 
R 
R 



M2 + 1 ;SLM2 

M2 

M1+1 

MLOOP 

Ml ;ifM1andM1+1=0 

MLOOP ;when we are done 

0023 ;or,BYTE$00,$23 
OQOF ;or.BYTE$00,$OF 
0000 :or BYTE $00, $00 



Division 

Now we'll lake a look at division. Binary division can also be done 
by mimicking the way decimal division is done. Let's look at an 
example of how to compute 43/5, giving a result of 8 remainder 3. 
Here's how it would be done by hand, in decimal. 

8 r3 





5 ) 43 




40 




3 




1)8«5 = 40 




2) 43 - 40 - 3 


Ml 


= 5 = 0000 0101 M2 = 


R1 


= 0000 0000 R2 = 



M2 = 43 = 00101011 



In the case of division, two result fields are needed, one for the 
quotient, the other for the remainder Specifically: 

M1/M2 = R1 remR2 

M2 will be shifted left into R2, and R2 will then be compared to Ml. 
]f R2 is greater than or equal to Mi, then Ml will fit into R2. The 
result of a binary divide can be only a zero or a one, again saving us 
the trouble of having a result table, as is necessary for decimal 
division, [f Ml willfit into R2, then we subtract Ml from R2, leaving 
the result in R2. Finally, RI isshiftedleft, with the carry bit from the 
compare going into the least significant bit, 

pass 

1- SLM2intoR2 R2 = 0000 0000 M2 = 0101 0110 
CMPR2-M1 {carry dear} 
SLR1 RI =0000 0000 



2- 



3- 



4- 



SLM2intoR2 R2 = 00000000 M2 = 10101100 
CMPR2-M1 (carry clear) 
SLR1 RI =0000 0000 

SLM2intoR2 R2 = 00000001 M2 = 0101 1000 
CMPR2-M1 (carry clear) 
SLRl RI =0000 0000 

SLM2intoR2 R2- 0000 0010 M2 = 1011 0000 
CMPR2-M1 (carry clear) 
SLRl RI =0000 0000 



5- 



M2 = 0110 0000 



6- 



7- 



SLM2intoR2 R2 -00000101 
CMPR2-M1 (carry clear) 
SLRl RI = 0000 0001 

R2 = R2-M1 R2 = 0000 0000 



SLM2intoR2 R2 = 0000 0000 M2 = 1100 0000 
CMPR2-M1 (carry clear) 
SLRl RI =00000010 

SLM2intoR2 R2 = 0000 0001 M2 = 1000 0000 
CMPR2-M1 (carry clear) 
SLRl RI = 00000100 

(. . xoftCd on page 45) 
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When you work a device whose number is 4 or more, you are 
allowed (sometimes required) to use an extra number called a 
secondary address. The purpose of the secondary address is to 
choose a channel luilhin the device. In other words, if I'm usmg 
the disk (usually device 8), 1 may want to have several things 
going at one time: one file might be in the process of being read, 
with another separate hie being written at the same hme. 
Although these are happening in the same deuice (the disk, 
number 8), we want lo keep them separate. To do this, we 
supply unique secondary addresses for each process. 

This article documents a characteristic of secondary addresses 
that is not well known, plus an oddity in the way it is sometimes 
used. The characteristic is this: Commodore Basic always adds 
96 to the SA (secondary address) used by an OPEN command 
before storing this value. Machine language routines, however, 
don't do this, and you may want to add in the value to keep 
operation consistent. The oddity is this; despite documentation, 
the number you supply to go with a LOAD command is not a 
secondary address. It's just a flag, and will later be replaced by a 
SA of (plus the extra 96). 

Try It 

Type the following direct Basic command on your computer; 

OPEN 2,8,15 

. , .now you can check the three values you have supplied by 
PEEK-ing them directly from the tables where they have been 
stored. Assuming this is your only active file, you should see the 
three values at: 

ViC-20, Commodore 64: 601. 611, 621 
MostPET/CBM: 593, 603, 613 

6-128 820, 830, 840 

C-16, Pius-4 1289,1299,1309 

Commodore 128 866, 876, 886 

Using the PEEK address from your machine, if you PEEK the 
first address, you'll see the value 2 from the command that was 
entered. PEEK the second value and you'll see the 8. . . but 
when you PEEK the third value, the 15 has mysteriously 
changed to 1 n , The computer has added 96. Why? 

1 don't know. . . but I do know that the Basic side of the computer 
is quite specific about doing this. And if there is no secondary 



address, the Basic handler carefully sets the SA to a value of 
255, , , a flag value which signals to the various parts of the 
kernal that there is no secondary address. 

If a secondary address is being used, it's sent out every time we 
wish to connect to a file. When we call the device (usually the 
disk drive) we signal which sub-channel we are using via the 
SA. And there's more: the SA is also used to signal an OPEN or 
CLOSE as well as a normal data transmission. 

Here's the system: When we open a file, we send the original SA, 
plus 240, lo the device, followed by the file name. When the disk 
sees this value (240 to 255), it knows to expect a file name to 
follow - not data. When we close a file, we send the original SA, 
plus 224, to the device. When the disk sees this value {224 to 
239), it knows to close the file. Finally, when we send or receive 
data, we send the SA as it is stored in memory (which includes 
the added value of 96). The disk sees that the SA is neither an 
OPEN nor a CLOSE, and handles the data as desired. 

Now. . . when Basic puts the SA away for you, all the above 
happens automatically (add % to value supplied, or set 255 if 
there is no secondary address). But if you do it yourself in 
machine language, you must do it all. 

So. . . if you're going to call SETLFS as a first step towards calling 
OPEN, set up the secondary address correctly. In other words, if 
you were planning to OPEN in a similar manner to the above 
command (OPEN2,8,15), I'd suggest you code: 

LDA #$02 
LDX #$08 
LDY #$6F 
JSR $FFBA ;(SETLFS) 

Note ttiat the secondary address of 1 5 (hex #$0F) has had 
a value of 96 (hex $60) added to it, to make a total of $6F 

And if you want to open to the printer with the equivalent of 
OPEN3,4. . . I recommend: 

LDA #$03 
LDX #$04 
LDY #$FF 
JSR SFFBA ;(SETLFS) 
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To signal that no secondary address is called for, put 255 
(hex FF) into the Y register. 

Both of the above calls should be followed soon by a call to 
OPEN {$FFCO). Because here's the catch; the above setup 
does NOT work as expected if you're going to call LOAD 
{$FFD5). 

The documentation doesn't tell you this. . . but if you are 
going to make a call to LOAD, your prior call to SETLFS 
does not set a secondary address. Instead, it sets a flag. A 
value of binary zero allows the program to relocate as it is 
loaded; any other (non-zero) value triggers a load to a fixed 
address, with no relocation. This last is what is most often 
wanted. 

And in the case of LOAD, you do NOT want to add 96, If 
your objective is relocation, the only value that works in the 
Y register is zero- , , add 96 and it Isn't zero any more, and 
you will NOT relocate. 

I don't use calls to LOAD much. In most cases, it seems to 
me to be as easy to OPEN and read the bytes myself, 
stacking them away under program control after examining 
them. But if you wish to use LOAD, go ahead. . . just 
remember that the SETLFS secondary address is really not 
a secondary address at all. 

One other related subject, to do with relative files. If you 
want to position to a particular record in a file, you must use 
the secondary address of that file in the "P" command. 
Again, 1 recommend that you use an added 96 as part of 
the value. Thus, if you have coded: 

OPEN 15,8,15 

OPEN 1 ,2.3. ' 0:RELDATA.L, " + CHR$(75) 

. . .opening a file, tlien to position to record number five, I'd 
suggest: 

PRINT#15,''P^+CHR$(99) + CHR$(5) + CHR$(0) + CHR$(1) 

The secondary address for the file is three, as shown in the 
OPEN 1,2,3, . . statement. But Td suggest that your position 
command add 96 as shown to specify a secondary address of 99. 

Do you need lo carefully do ail this, every time? 1 honestly don't 
know for sure. Sometimes everything seems to work when you 
don't worry about the extra bits. But when you carefully trace 
Basic code (especially the 4.0 and 7.0 versions), you see thai 
Commodore always puts these extra values in. Maybe they 
know something. 

And witti the wide variety-of disk drives and prt^rams, you can 
never be sure when you might come up with a combination that 
needs those extra bits to be exactly right. I don't know about 
you, . . but my data files are too important for me to take any 
unnecessary chances. 



(Com 'd from page 43) 

8- SL M2 into R2 R2 = 0000 001 1 M2 = 0000 0000 
CMPR2-M1 (carry clear) 



SLR1 



R1 =00001000 



Now we can stop, because all eight bits of M2 have been 
processed. 

Here is how this process looks in assembler. To compare R2 
and M1 , a subtract is used. The result of this subtract is saved 
in registers X and Y, so that the subtract does not have to be 
repeated, thus saving a few cycles. 



DLOOP EQU 
ASL 
ROL 
ROL 
ROL 
SEC 
LDA 
SBC 
TAX 
LDA 
SBC 
TAY 
BCC 
STX 
STY 
SKIPSAVE EQU 
ROL 
ROL 
LDA 
BNE 
LDA 
BNE 
RTS 
Ml HEX 

M2 HEX 

R1 HEX 

R2 HEX 



M2 + 1 
M2 

M2+1 
R2 

R2 + 1 
Ml+I 



;save low byte 



R2 
Ml 

;save high byte 
SKIPSAVE 
R2 + 1 ;store saved bytes 

;inR2 



R2 

* 

R1+1 

R1 

fvl2 + 1 

DLOOP 

M2 

DLOOP 

0005 
002B 
0000 
0000 



;shift carry from 
;subtractintoR1 



Conclusion 

To make these routines even faster, use zero page memory for ail 
the fields. They will also take less memory this way. 

Where will these routines come in handy? Well, for starters, here 
are some ideas. 

- Graphics programs, for calculating the position of a dot, plotting a 
line, or drawing a circle, or drawing a circle, 

-Compilers, for calculating memory needed for arrays, or for 
finding a specific element in an array. Also good for fast integer 
multiply/divides. 

- Calculating prime numbers. 

There are many places where multiplies or divides are used, and 
anywhere one is used, one of these routines can make your code 
from a few limes lo hundreds of times faster 
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Interfacing and Controlling 
the Armatron Robot 



J.J. Barbarello 
Englishtown, NJ 



the original Armatron from Radio Shack was both agony and ecstacy. 



For Ihose of us interested in experimenting with robotics, the 
original Armatron from Radio Shack was both agony and 
ecstacy. Still available, armatron is a low cost, fully functioning 
robot arm with six degrees of freedom (meaning there are six 
different portions of the arm whose movement can be con- 
trolled}. For robotics experimentation its serious shortcomings 
include the inability to lift anything of measurable weight and its 
totally mechanical controls. While many different articles ap- 
peared describing modifications to allow computer linkup of 
Armatron. all (including one i did) required a substantial amount 
of mechanical ski!!. 

These problems have been overcome in a newer version called 
Mobile Armatron. This under $40.00 robot has enough power to 
lift items in the one pound range while retaining six degrees of 
freedom. Best of all, it is electrically controlled. As its name 
implies the robot can move on its two wheels. On the negative 
side, the elbow joint is not controllable (but you can manually 
move it). 

If the thought of experimenting with a computer controlled 
robotics device is appealing, this project is for you. The project 
consists of a simple interface and a comprehensive control 
program for the C-64. Including the cost of the robot, the total 
project cost should be around $60.00. 

The Interface 

Mobile Armatron has a control module that is simply a series of 
switches. It can select one of four directions (forward, back, left 
and right), arm up. arm down, wrist up, wrist down, wrist turn 
and fingers open/clamp. The robot is powered by four D size 
batteries that provide plus and minus three volts for the internal 
motors. By changing the polarity of voltage applied, alternating 
functions (such as arm up and arm down) are obtained. The 
control module can actuate the left wheel, the right wheel, the 
arm movement, the wrist movement, and the wrist turn/fingers. 
Its seven control lines include one for each of the five motions 
just mentioned plus one each for positive and negative voltage. 

As shown in the schematic diagram of Figure 1 , the interface is a 
straightforward design that replaces the control module switches 



with seven low current relays. These relays are activated by 
S€ven transistors which are in turn controlled by seven of the 
eight available C-64 user port lines. Low current relays insure 
that the 100 milliamp maximum allowable current drain from 
the user port is not exceeded. 

Figure 1: Schematic Diagram 
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Construction 

Begin construction by fabricating a doubled sided printed circuit 
board (PCB) using the circuit patterns shown in Figure 2 . If you 
prefer, you can fabricate a single sided PCB by eliminating the 
top circuit pattern. In this instance, you will have to connect a 
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jumper wire between hole A and connector pin 2 (+5 volls). 
While this method does not provide as much rigidity (only half 
as many connector pins soldered to the PCB), it is somewhat less 
intimidating, [f you opt for the double sided PCB, be sure to 
insert a short length of wire into hole A and solder it to the pads 
on either side of the PCB, This replaces the wire jumper used on 
the single sided version. 



Location of wires on Controller PC Board 



: 

I 



I 



^^ ^ e ^ %^ 






tk ik ^k ik ^^? ^^? •?k 



CD CD OO OO OO OO OO 





Figure 2: PC Uyout 



Mount the components on the PCB as shown in Figure 3, being 
sure not to apply excessive heat during the soldering process- 
When ail components have been soldered in place, slide the 
connector onto the edge of the board so the pins are over the 
edgeboard pads. Solder each pad to its associated connector pin. 

Place the controller module face down and remove the six 
screws holding it together. Remove the rear case halt and note 
the PCB held in place by a single screw. Remove that screw and 
the PCB, Turn the PCB over (circuit side) and note the seven 
wires soldered to the upper edge. Starhng from the left they are 
black, brown, red, pink, yellow, green and blue. Unsolder the 
wires from the PCB and discard the controller module. Solder 
these wires to the seven remaining holes as shown in Figure 3. 
This completes construction. 





Double Sided: Wire through hole soldered to pads on both 

sides. 
Single Sided: Wire jumper soldered to pad on other side and 

Pin 2 (see dotted line). 



Figure 3: Component Placement 



Use 



Install four D size batteries in the Mobile Armatron. Connect the 
interface to the user port (rear left of the C-64) such that the 
component side of the PCB is on top. Power up your C-64 and, if 
you haven't already, type in the program shown in the Program 
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Listing and save it using the name ROBOT. When you RUN the 
program Ihe main menu will appear with the five options Learn, 
Do, Save, Retrieve and Quit (End). To better understand what 
these options do and how the program operates, let's discuss 
each of them separately. 

Learn allows you to "teach" the robot to perform a series of 
functions In a specific manner. Together these functions form a 
procedure. Once created, the procedure can be saved, retrieved, 
added to and executed at any lime. Select Learn by pressing Fl . 
The Learn screen defines the keys to select the twelve possible 
movement functions. To perform one of the functions described, 
press the associated key. To end movement, press any key. The 
program remembers each function selected and the length of 
hme the function is performed- To end the teaching session, 
press the Fl key to return to the main menu. 

Do executes a procedure resident in memory. Select Do by 
pressing F3. If a procedure is resident in memory, you will be 
asked to press any key to begin execution. Otherwise, you will 
be informed that there is no procedure in memory and asked to 
press any key to return to the main menu- 
Save allows you to copy a procedure in memory to a disk file 
using a name that you specify. Select Save by pressing F5- If 
there is no procedure in memory, you are so informed and asked 
to press any key to return to the main menu. If you specify the 
name of a file that already exists, you are asked if you want to 
continue. Continuing erases the existing disk file and replaces it 
with the current memory contents. 

Retrieve copies the contents of a disk file info memory, erasing 
any procedure in memory at the time. Select Retrieve by 
pressing F7. If you specify the name of a file that doesn't exist, 
you will be so informed and asked to press any key to return to 
the main menu. If memory already contains a procedure you 
will be so advised and asked if you want to continue. Continuing 
erases the current memory contents and replaces it with the 
procedure saved on disk- 
Quit is selected by pressing both the CTRL and Q keys. This 
ends the program, insures all files are closed and prints a 
message "To re-enter, type GOTO 50". If you end prematurely 
without saving a procedure in memory, executing a GOTO 50 
allows you to re-enter the program with memory intact. You can 
then save memory contents to a disk file. 

Experimenting Tips 

Each movement you specify is called a step. After loading a 
procedure from disk, you can add steps to it in the Learn mode. 
This allows you to build a procedure a part at a time, add to it. 
test it, and save the revised procedure if it proves acceptabie. 
You can also have standard procedures on file rather than 
having to build them manually each time. 

You should always start a procedure with the robot in the same 
initial position. To do this, save any procedure in memory and 
enter the Learn mode- Perform the functions necessary to get 
the robot to the initial position. Then retrieve the procedure you 
wish to perform- 



Each procedure step is saved as a movement function number 
and a time count. The movement function is specified by a 
number between one and twelve (corresponding to the twelve 
function definitions listed on the Learn screen). The time count 
is a number that indicates how long the function should be 
performed- As the robot's batteries drain, the time count may 
produce slightly different results, since the robot will now move 
at a slower speed. For precise procedures, then, always use a 
fresh set of batteries. 

List Of Materials 

R1-R7 :10,000 ohm, 1/4 watt fixed resistor {such as Radio 

Shack P/N 271-1335)- 
Q1-Q7 :2N2222A NPN Silicon Transistor (such as Radio Shack 

P/N 276-2009). 
K1-K7 :5 volt, 250 ohm coil reed relay with 1 amp SPST 

contacts (Radio Shack P/N 272-232). 
SOI :Standard user port 12 position female connector with 

0.156" spacing. NOTE- Radio Shack P/N 276-1551 

(22 position connector} can be used as an alternate by 

cutting it to a 12 position length. 
PCB :Printed Circuit Board (see text), 
ROBOT :Mobile Armatron (Radio Shack P/N 60-2396). 

MISCELLANEOUS: Solder, short length of wire (see text), four D 
cell batteries. 

NOTE: A disk containing the ROBOT program plus a series of 
demonstration procedures is available for $6.00 US ($6.36 for 
New Jersey residents} from B&BTC, RD*1 , Box 241H, Tennent 
Road, Manalapan, NJ, 07726. 

Mobile Armatron Program 



NL 

\C 
CA 
GK 
DJ 

Jl 
DM 

IF 

HM 

HD 

DA 

CJ 

IJ 

DA 

KL 
DM 
HJ 
ND 
IM 
AM 



1 [Q(J] #*#w*#**l.*#»*»-*****************» 

2 rem** mobile armatron software •* 

3 rem ** name: robot •• 

4 rem ** (c) 1986, jjb *» 

5 rem ** manalapan, nj 07726 •• 

6 rem •* v 860928 *• 

7 rem **#********••***'('**»******••***•• 

1 dim a(1 2),b(250, 1);gosub 3000 

:gosub 5000:poke 56579,255:poke 56577,0 
20a(1) = 38:a(2) = 70:a(3) = 36:a(4) = 34 

:a{5)-33:a(6) = 65 
30a(7)-40:a(8) = 72:a(9) = 48:a(10) = 80 

:a(11) = 66:a(12) = 68 
40ss$= "'1234567890 + -" 

;rc$=^Chr$(5) + chr$(T8) 
50 gosub 3000;ro = 6:co = 1 0;gosub 5050 

:printrc$; "main menu" 
60 print:printtab(12}; '"<f1 >: learn ":prinl 

:printtab(12)i"<f3>:do'" 
70 print:prfntlab(12); V f5 >: save "' print 

;printtab(12); X f7 >: retrieve " 
80 print; printtab(IO); "'<ctri> q: quit (end) 
90 ro = 19:co = 10:gosub5050:print" which- . . ' 
100getsr$:ifsr$= """ then 100 
110sr = asG(sf$)~132;ifsr = -n5 thensr = 5 
1 20 if sr< 1 or sr>5 then 90 
130 on sr gosub 200,300,400,600,800 
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NP 
KL 

GC 
KA 
PM 

NJ 
DD 
BN 
KN 
LA 

GA 
PG 

MD 

GE 
PK 
CG 
PG 

HW 
MF 
JA 

JL 

PN 
CK 
FA 
OD 

EJ 

Jl 
FO 

CG 
AB 

JC 
MC 
AF 
LA 
PD 

AD 

OM 

LO 
EC 

IB 
FL 

MA 
JF 
BM 

GG 
BK 



140 goto 50 

200gosub1000:j = b(0,0):x = 0;reni*-H learn 

mode •*« 

210geta$jfa$= "" lhen210 

220 if asc{a$) = 1 33 then return 

230 gosub 2000:jf t = then poke 56577.0 

;goto210 

240 poke 56577.a{l) 

250 get a$: if a$ = " " then x = x + 1 igoto 250 

260 poke 56577,0 

270j=j + l:bG,0) = i:bai)-x:x = 0:b(0,0)-j 

280 ro = i + 10:co = 5:gosub 5050 

:printniid$(ss$,i,1);:goto210 

300 rem"* do procedure 

310printchr$(147):prjntbf$:print"[13spcs]do 

procedure " :printbl$ print 

320 it b(0,0) = then print " no procedure in 

memory. ";goto375 

330 print " press any key to begin procedure. ' 

340 get a$; if a$ = " ^ then 340 

350 print " procedure execution in progress " 

355 for i = 1 to b(0,0):poke 56577,a(b(i,0)) 

360fQrj=1 tob(ij) 

365geta$:ifa$= ""' thenx = x+1:nextj 

370 poke 56577,0:for j= 1 to 500:next j:next i 

: print "procedure done. ' 

375 ro = 18:co = 0;gosub5050:print'' press any key 

to return to the menu. " 

380 get a$:if a$ = ^ ^ then 380 

390 return 

400 rem** save procedure 

41 pfinlchr${1 47):prinlbl$:print " [1 3 spcsjsave 

procedure " :printb!S;print 

420 if b(0,0} = then print ' no procedure in 

memory. ":goto480 

430 input " enter fife name to save " ;f$ 

440open1,8,15:open2,8,2/'@0:^ +f$+ ".s/" 

:input#1 ,e,ed$,tn,bl;ciose 1 :ciose 2 

450 ife = 62 then 500 

460 print " file exists, continue (y/n). , , " ; 

:gosub 1500 

470ifa$= "y^ then 500 

480 print " abort, press any key. . . " 

490getaS:ifa$= "" then 490 

495 return 

500 open 2,8,2, " @0: " +f$ + " ,s.w " :print 

:print" saving procedure, wait. " 

510fori-0tob(0,0):print#2,b(i,0):print#2,b(i,1) 

:nexti:close2:close 15 

520 print:prinf procedure saved, press any key. " 

;goto 490 

600 rem"* retrieve procedure 

610printchr$(147):printbl$:print"[11 spcs]retrieve 

procedure " ;printbl$:print 

620ifb(0,0) = 0then650 

630 print " procedure in memory, continue (y/n)? ' ; 

:gosub1500 

640ifa$- "n" then print "abort ";;goto700 

650 input "enter file name to retrieve ";f$ 

aeOopen l,8,15:open2,8,2/@0;" +f$+ ".sj" 

:input#1 ,e,ed$,tn,b1: close 1 :close 2 

670ife = 0then720 

680 if e = 62 then print " file doesn't exist. " ; 



IM 
DB 
CO 

IG 

JO 
PG 

CB 
BB 

Al 

GL 
CM 

IC 
HK 
MH 
AH 

OC 

HM 
CF 

MM 

IL 

MH 

FD 

AH 

OH 
FP 
EF 
HP 

ID 

FC 

FN 

CE 

DN 

CL 

HB 

IB 
KN 

MM 
DB 
MC 
lA 
AB 
OP 
NO 
FK 
Hi 

MM 
NK 
AC 



690 print " press any key. ■" 
700geta$:ifa$= -"' then 700 
710 return 
720 print " retrieving procedure, wait. " 

;open2.8,2/®0:"+f$+ ",s.r" 
730input#2,b(0.0):input#2,b(0,1) 
740 for i = 1 to b{0,0):input#2,b(i,0}:input#2,b(i J) 

:next:close2 
750 print " retrieval complete. " ;:goto 690 
800 rem** end 
81 ro = 5:co = 1 0:gosub 5050:for q = 1 to 1 6 

:printtab(10);b$:next 
820 ro = 10:co = 0:gosub 5050:close1 :ClQse2 
830 print "program ended, to re-enter, 

type goto 50 " ; 
840 print:end 
1000 rem** learn mode screen 

1 005 prtntchr$(1 47):printbl$ 

1006 print "[3 spcs]mobi[e armatron robot learn 
mode[3spcs]"; printbl$: print 

1 007 print " [4 spcs]press key to do function, press 
any other key to stop. " ; 

1 008 print " press <f 1 > to return to menu. " :print 

1009 print "[4spcs]key function "iprint" [4 spcs] 






1010printtab(5);M = forward" 

:printtab(5);"2 = backward^ 
1020printtab(5);"3 =^ right forward turn ^ 

:printtab(5};"4 = ieft forward turn ^ 
1030printtab(5);"5 = arm up" 

:printtab(5); "6 = arm down" 
1040printtab(6);"7 - wrist up" 

;printtab(5);''8 = wrist down* 
1050printtab(5);"9 = hand turn" 

:printtab(5); "0 = fingers move In/out " 
1 060 printtab(5); - + = right reverse turn ' 
1070printtab(5);"" = left reverse turn " 
1080 return 

1500 get a$:ifa$= "" then 1500 
1510 a$ = chr${asc(a$} and 223) 
1 520 if a$<> ' y " and a$<> ' n - then 1 500 
1530 print a$: return 
2000 rem** position in string 
2010fori = 1 to12:ifa$ = mid${ss$j,1)then2030 
2020next:i = 0:return 

2030ro = i + 10:co = 5:gosub5050:printrc$;a$;return 
3000 rem * ♦ format screen = 
3010 poke 53280, 6:poke 53281 ,6:printchr$(147) 

:b$ = chr$(5) + chr$(18) 
3020 bl$ = b$ + " [39 spcs] " ;prinl bl$ 
3030 print b$; " mobile armatron robot controlier " 
3040 prinlbIS 
3050 b$ = - [29 Spcs] " 
3060 return 

5000 rem* cursor control using plot kernel (SfffO) 
501 data 1 62,0, 1 60,0,24.32,240,255,96,999 
5020a = 49300:sc = a 
5030 read b:if b<>999 then poke a,b:a = a+ 1 

: goto 5030 
5040 return 

5050 pokesc + 3,col:pokesc + 1,row:syssc 
5060 return 
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Symlister - A List 
Formatter for Symass 



John A. Spencer 
Edwardsville, IL 



Symlister will automatically detect spelling errors in opcodes. . 



Symass is a first class assembler for the C-64 but one feature is 
noticeably absent. You cannot indent the opcodes to make the 
labels more easily identified. This is not the "fault" of Symass but 
rather stems from the fact that the normal Basic operating 
system is used to manipulate the program. When a line is 
crunched, the spaces between the line number and what follows 
are always removed. On listing, a single space is uniformly 
inserted after each line number to make the program more 
''readable". But when working with assembly code it is very 
helpful to have the labels separated to the left of the opcodes. 
The lack of this formatting can lead, at the least, to eye strain or 
even worse, to inadvertent duplication of labels. Symlister solves 
this problem. 

This short utility routine, when assembled with Symass 3.13 and 
enabled, will tidy up your code by automatically indenting each 
line that begins with a 6510 mnemonic. Because Symlister uses 
the IQPLOP vector ($306). it also works with listings to a printer 
in the CMD mode. With Symlister active, enter your assembly- 
code as usual. You need not indent on lines starting with 
opcodes. When the program is listed, they will be indented- 
When editing, it is most sensible to align the opcodes appearing 
after the labels since the indents are fixed for the other lines. 

Since Symlister affects only the listing of a program, it does not 
change the amount of disk space required to store the PRG file. 

To conserve programming space, this utility has been designed 
to hide in the tape buffer. It can be assembled below Symass in 
memory but when calculating a new starting address, be sure to 
include an extra 1 80 bytes or so to allow for the Symass symbol 
table required during its assembly. Add the following lines to 
protect the formatter from being overwritten by new Symass 
symbol tables after it is enabled; 

1401 lda#<vecset ; protect code 
1402sta$37 i from symass 

14031da#>vecset 

1 404 sta $38 

1405 jsr $a65e ; reset memory pointers 



Of course, new enable and disable SYS addresses will have to be 
calculated for alternate locations. For example, if you load 
Symass first, it will reside at $952C and Symlister will assemble 
properly with a starting address of $9400. Then to enable, 
SYS37888, and disable, SYS37S91 {enables 3) 

This routine automatically adjusts for variations in the load 
address of Symass, If you install another utility (eg. C-64 Tiny 
Aid) before Symass the starting address changes. This adjust- 
ment is important because the routine calls two procedures 
within Symass itself - WORD and FINDOP. A very useful result 
of this is that Symlister will automatically detect spelling errors 
in opcodes by not indenting them when you re-list the line. This 
does not apply to opcodes on lines with labels. 

The program is written to automatically vector to whatever was 
originally in IQPLOP, so if you are using a cartridge that alters 
this vector it should continue to work normally. However, be 
careful to disable Symlister with the appropriate SYS before 
disabling your other utility. 

As presented here, Symlister indents eight spaces. This figure 
works very well with Unassembler files generated from the STP 
program that converts the SEQ disk files to Symass compatible 
PRG form. If you favor a different spacing, change the ^'SPACES" 
variable before assembling. If Symlister is already active, you 
can change the spacing by a POKE to location 917 with the 
desired value. 

This program is compatible with Tiny Aid to make it easy to 
revise the 'ADxxxx' labels from Unassembler. But note that Tiny 
Aid uses its own display routine so it will not indent the results of 
FIND or CHANGE operations. Once changes are made, re-list 
the lines in question to see them formatted. This version of 
Symlister is not compatible with Verifizer since they both use the 
tape buffer Assembly at SCOOO (change line 11 60 to » = $C000) 
would be a simple alternative provided you are careful to disable 
it before Symass does any assembling into this region, in this 
case enable is SYS49152 and disable SYS49155. 
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Symlister Source Code In Symass Format 



t 



G 


1000 rem save"0:symlister" ,8 


DC 


1530 


adc #$05 




OH 


1010 rem • 21 feb87 - j.a.spencer 


LE 


1540 


sta wrd + 2 




CJ 


1 020 rem * indents all lines starling 


KP 


1550 


rts 




AM 


1 030 rem - with 651 opcodes 





1560; 






*^ 


1040 rem • symass must be installed 


AG 


1570 ;new routine for isting 




01 


1050: 


El 


1 580 Ivec 


cpy #$04 


;check only 


CD 


1 060 it peek(700) = 76 then 1 1 20 


JE 


1590 


beq opsrch 


; 1 St word 


OK 


1070: 


GL 


1600; 






PE i 1080 print " •* symass not installed +♦ " 


P 


1610 reg 


Ida (srcad).y 


;on ine 


KP 


1090'print "load/run symass first' 


KM 


1620; 






ME 


11 00 end 


KH 


1 630 rg 


jmp reglst 




KM 


1110: 


ON 


1640; 






DO 


1 1 20 print " sys 828 to enab e " 


DM 


laSOopsrchsiy $49 




EG 


1 1 30 print " sys 831 to restore previous ist vector " 


PM 


1660 


jsr ca cad 







1140: 


MP 


1670; 






PE 


1 1 50 sys700 


GC 1680 wrd 


jsr word 


;geMen of 


BM 


1160*=$033c 


MF 


1690 


jsr calcad 


; word ($59) 


A 


1170: 


KB 


1700; 






KK 


11 80 spaces- $08 


,# spaces to indent 


, DC 

1 


1710 opfd 


jsr findop 




EL 


1190srcad = $5f 


.code address 


! N 


1720 


bcc jreg 


;not mnemonic 


NA 


1200 ad = $7a 


ichrgot & symass 


ID 


1730; 






GF 


1210iqp!op = $0306 


;std list jmp vec 


DB 


1740 


dx #spaces 




HD 


1220symptr- $02bd 


; symass vector 


ME ■ 


1750; 






DG 


1230reglst ^ $a71a 


;normal list code 


PA 


1760con2 


Ida #$20 


;insert spaces 


FM 


1240 outdo = $ab47 


;printchar 


DB 


1770 


jsr outdo 




KJ 


1250findop - $0000 


;dummy value 


LK 


1780 


dex 




EJ 


1260 word = $0000 


LH 


1790 


jne con2 




MG 


1270; 


OH 


1800; 






NG 


1280 jmp vecset ;enable 


BH 


1810jreg 


Idy $49 


;restorey reg 


MO 


1290 jmp lisdis :disable 


PE 


1820 


bne reg 




Kl 


1300; 


MJ 


1830; 






AB 


1310 ;a ter the list vector (iqplop) 


HD 


1 840 ;subroutine to set up search 


MP 


1320 vecset = • 


OD 


1850 ;address 'ad' in symass 


JN 


1330 da iqplop ;pick up 


CM 


1860calcad = * 




DG 


1 340 sta rgl + 1 ;current 


HM 


1870 


Ida $49 


;add.y to 


AG '■ 1350 Ida iqplop + 1 ;' isf 


MO 


1880 


cc 


;current 


BK 


1360 sta rg +2 ;vector 


FP 


1890 


adc srcad 


;addr 


FO 


1370 da #<lvec ;installnew 


LN 


1900 


sta ac 




KD 


1380 sta iqplop ;'list' 


JJ 


1910 


Ida #$00 




KG 


1390 Ida #>vec ;vectar 


JM 


1920 


adc srcad + 1 




KN 


1400 sta iqplop + 1 


LL 


1930 


sta ad + 1 




PL 


1410 da symptr ;Ga c addr of 


Al 


1940 


rts 




LK 


1420 cIc ;'findop' 


EB 


1950; 






KB 


1430 ado #$9d ;routine 


CH 


1 960 isys to disab e list formatter 


DC 


1 440 sta opfd + 1 


E. 


1970 lisdis 


= t 




KJ 


1450 Ida symptr + 1 ;& insert in 


00 


1980 


Ida rgl + 1 


restore asl 


IF 


1460 adc #$03 ;codebeow 


OG 


1990 


sta iqplop 


; vector 


DE 


1470 sta opld + 2 


GN 


2000 


da rg +2 




OD 


1480 cc 


MD 


2010 


sta iqpop + 1 




FA 


1 490 Ida symptr ;calc addr of 


AN 


2020 


rts 




HF 


1500 adc #$fa ;'word' 


EG 


2030: 






JC 
GJ 


1510 sta wrd+1 ;routine 
1520 da symptr + 1 ;in symass 


EN 


2040 .end 
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XREF for the 
Commodore 64 



David Archibald 
Flint, Michigan 



An indispensible BASIC programming aid 



When I'm writing a BASIC program, I find that there are certain 
programming aids that I use over and over again. The fact is, these 
programs save me so much lime and aggravation that I would find 
myself hard pressed to get along without them. 

One of these indispensable programs is my variable and line 
number cross reference program, XRER What is does, for those 
who are unfamiliar with this lype of program, is create a listing of 1) 
program lines that are referenced by olher program lines^ and 2) all 
variables have been used, and on what program lines they appear 

Learning to use Xref is quite simple, since there are only two 
commands: XREF, and HELP, There are also, only two items of 
syntax: @ and *. Altogether, there are seven different combinations 
of these commands and syntax, but I'm sure you wonH have any 
problem remembering them. 

Bui before we get into the explanations of these commands, let's gel 
ttie basics of running Xref out of the way. All of the commands listed 
here must be at the beginning of the command line. If they are not, 
you will get a SYNTAX ERROR. These commands will work only in 
direct mode; they will not work from within a Basic program. All 
spaces in the command line will be ignored. The output, which can 
be sent to the screen or your printer, is listed in numerical or 
alphabelicai order For this program to do anything, you must of 
course have a Basic program in memory. To pause ihe listing, press 
and hold down the '^P" key, until ihe listing slops. You can restart 
the listing by pressing any key Qust close your eyes, and hit any key 
that calchs your fancy). You can abort the listing, by pressing RUN/ 
STOP. 

And now thai you have committed all that to memory, we can start 
on the commands. 

[n the following commands, "var-*" can equal any variable name, 
or line number up to five characters long. Anything over this five 
character limit is ignored. The symbol <cr> represents pressing the 
Return key. 

XREF @ <cr> 

This command sends a complete line number and variable cross 
reference to your screen. 

XREF' @ <cr> 

This is the same as the above command, except ihe output is sent to 
the printer 



XREF® var-#<cr> 
XREF*^ var-#<cr> 



or 



These commands list all references from the variable or line 
number onwards. If, for example, you entered Ihe variable "CB$'\ 
then the variable CB$ (if it exists) and those alphabetically greater 
will be listed. You can also use these commands to separately list 
either the line number or the variable cross reference. In other 
words, when you enter a line number, then only line number cross 
references are listed, and the same goes for the variables. Using zero 
will display all line number cross references, and "A^' will display all 
variables. 

XREFvar-#<cr> 
Of XREF* var-#<cr> 

With this command, only the single variable or line number that 
you enter is cross referenced- 1 like to make use of this command 
before using a new variable, so 1 can make sure it hasn't already 
been used. 

XREF<cr> 

Each time the command XREF is entered, it will consecutively list a 
Basic line where the previous "var-*" appears. Lets say for example 
you enter the command "XREF C$'', and you get a listing saying C$ 
appears on these line numbers; 10,30,100, and 165. If you then 
enter the command XREF, line 10 will be listed. If you enter it again, 
then line 30 will be listed. Each time the command XREF is entered, 
the next Basic line where C$ appears is listed. After the last line is 
listed {in this case 1 65), subsequent XREF commands will give you 
the message "END OF TEXT^ 

This command is especially handy for editing. Say for example you 
have ten Basic lines that reference a subroutine at line 1500, and 
you need to change six of them to call a new subroutine at line 
2000, Well, you can either try to remember the six line numbers, 
and then list Ihem one at a time, or you can simply enter the 
command XREF 1500, and then follow it with XREF until the six 
lines pop up. I think I prefer second method, thank you! 

HELP<cr> 

This is the last command, and the most important. Why is it the 
most important? Because if you forget everything you have just 
read, you can enter this command, and get an abbreviated descrip- 
tion of these instructions. So if you only remember one command, 
make it this one. 
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Technical Notes 



XREF 64: BASIC Loader 



Xref is written completely in machine language, but since It*s loaded 
with a Basic loader, you do not need to know anything about 
machine language to use it. 

Before the Basic loader pokes Xref into memory, it gets the address 
of the top of Basic memory from locations 55 and 56. !t then 
subtracts 2 1 4 (the number of bytes used by Xref) from this address, 
and Pokes Xref into memory starting from there. What this all 
means is that Xref is a relocatable program. If for example you 
already have a machine language program at the top of Basic 
memory, then the Basic loader will relocate Xref below this other 
program. ' 

IMPORTANT NOTE! Be sure you save the Basic loader before you 
run it, because it executes a NEW command after it pokes Xref into 
memory. 

Are you wondering how Xref manages to use only 214 bytes of 
memory? Well, it actually uses over 2000 bytes of memory. So 
Where's the rest? It's hidden under the Basic ROM, 

This is made possible because of the Commodore 64's unique 
memory architecture. What makes it unique is that underneath the 
ROM for the Basic interpreter and the Kernal is a whole bunch of 
unused RAM. You can write to this RAM from Basic, but to read it. 
you really have to use machine language. To read this RAM, you 
first have to "switch out" the Basic interpreter's ROM. And of course 
when you switch out the Basic interpreter - which is after alt, just a 
machine language prc^ram - it no longer exists in memory, so it is 
not there to read any memory locations! 

Which memory the computer ''sees" - the ROM or the RAM - is 
controlled by the value in zero page memory location one. If bits 
zero and one in this byte equal zero, then the computer sees RAM at 
addresses 40960-49151 ($A0OO-$BFFF), and 57344-65535 
($£0O0-$FFFF). If these bits equal one, then the computer sees 
ROM at these addresses. 

Xref uses this switching act between RAM and ROM to its advan- 
tage, and by doing so saves Basic programming memory. The 
majority of the Xref program, doesn't care if the Basic interpreter is 
switched in or out, so most of it is hidden under the ROM. The 214 
bytes that are in the Basic programming memory consist mainly of 
subroutines that switch the ROM back in, and then call other 
subroutines in the KernaL When the Kernal subroutine is finished, 
the Xref subrouhne switches the ROM back out, then returns to the 
part of the main program that called it. 

Once Xref is in memory, you don't have to worry that pressing 
RUN/STOP and RESTORE will kill it, because only turning your 
computer off will do that. 

If you'd rather not type in the program, you can get this issue's 
Transactor disk, or send $3, a formatted diskette, and a self- 
addressed, stamped mailer to: 

David Archibald 
3717 Aldon Lane 
Flint, Ml 4850G 
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1 rem •••••*•*••*••***•************#■■#• 

20 rem'* xref 

30 rem** (c) 1985 bydavidarchibald 

40 rem** (313)736-0239 

50 rem* *'•*'*'*'****•***•*'**■*• ■*•**"• 

60 rem 

70 rem 

80 rem 

90 print " [CLR] ' : print: print: print: print: print: print:print 

1 00 printspc(8) " [RVS]poking xref into memory. ' :print 

110 printspc(6) " please wait approx. two min. ' 

1 20 rem 

1 30 rem— save border color, 

140 rem 

150ml =53280:lt-15:p4 = 1 

160bc = peek(ml) 

1 70 rem 

1 80 rem— get top of Uee memory and 

1 90 rem— where lo put start of prog. 

200 rem 

210ea-peek(55)4-peek(56)'256-1:sa = ea-214 

:exe = sa 
220 rem 

230 rem— check if start of xref is 
240 rem— lower then end of basic prog. 
250 rem 

260 bm = peek{45) + peek(46)'256 + 1 00 
270 it bm>sa then print:print " there isn^t enough free 

memory" :end 
280 rem 

290 rem— convert start of xref into 
300 rem— split decimal, 
310 rem 

320 th - int(sa/256):tl = sa-th'256 
330fcrpa = satoea 
340 read by;tst = by-int(by) 
350 rem 
360 rem— randomly change border color. 

370 rem 

380cm = cm + p4;ifcm=^20thenp1 =rnd{1)'lt + p4 

:poi<eml,p1:cm = 
390 rem 

400 rem— if byte followed by . 1 then 
410 rem— lower byte ot absolute addr 
420 rem-- add lower byte of start to it 
430 rem— so it points to relocated addr 
440 rem 

450 if lst>0 and lst<.2 then carry = 0:by = by + tl 
460 rem 

470 rem— if lower byte is greater than 
480 rem— 255 then a carry is generated 
490 rem— so add 1 to high byte. 
500 rem 

510ifby>255,5thenby = by-256;carry=1 
520 rem 

530 rem— if byte followed by .2 then 
540 rem— high byte of absolute add. 
550 rem 

560 if tst>, 1 9 then by = by +th + carry:carry = 
570 poke pa, by 
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580 next pa 

590 rem 

600 rem 

61 rem— starting addr ($aOOO) & ending 

620 rem— addr ($a71 e) o1 main program 

630 rem— under basic's rom, 

640 rem 

650 if a = then a = 1 sa = 40960:ea = 42781 :goto 330 

660pokem1.bc 
670 sys exe: new 
1000 rem 
1 01 rem 

1 020 rem — relocatable section of the 
lOSOtem — program is not poked under 
1040 rem— basic's rom. 
1 050 rem 
1 060 rem 

1070data 32,31.1, 0.2, 
1080 data 0, 80, 76, 
1090data 122, 164, 32, 

0, 

88, 

32, 



76, 234, 166, 70, 69, 



11 00 data 76, 128, 
11 10 data 208, 5, 
1120 data 96, 72, 

1130data 76,31,1, 0.2, 

1140data 195, 255, 32, 

1150da[a38.1, 0.2, 76, 

11 60 data 228, 255, 72, 

1170data 32, 134, 33, 

llSOdata 208, 174, 201, 

1190data 9,1, 201, 72, 

1200dala 162, 6.1, 142,126,1, 

1210data 6,1, ,2, 208, 139, 

1220 data .2, 201, 6,1, 

1230data 14, 161, 169, 



160, 

33, 

120, 

1, 
0.2, 



0, 132, 122, 

201, 58, 176, 

165, 1, 41, 

9, 1, 133, 

104, 32, 210, 



0, 208, 

72, 169, 

160, 36, 

162, 4, 

4, 160, 



69, 

166, 

96, 

165, 

38,1, 

32,38.1, 0,2, 169, 4, 

204, 255, 108, 2, 3, 

32,38.1, 0,2, 

,2, 104, 96, 

16, 178, 166, 

10, 160, 3, 

6, 208, 160, 160, 

.2, 32, 115, 0, 

136, 16, 245, 173, 

6, 32,31,1, .2, 

133, 26, 32, 115, 

32,31.1, .2, 76, 

32, 195, 255, 104, 

42, 208, 7, 32, 

76, 140, 166, 162, 

32, 186, 255, 169, 

32, 192, 255, 162, 4, 

31.1, 0,2, 76, 0, 160 



167, 166, 
32,31,1, 

166, 157, 
88, 240, 

240, 



240, 
163, 
6, 
4, 
201, 
160. 
255, 



1240dala 201, 

1250data 161, 

1260 data 3, 

1 270 data 0, 

1280 data 169, 

1290 data 32, 189, 255, 

1300data 201, 255, 32, 

1310 rem 

1320 rem — start of main program 

1330 rem — under basic rom 

1 340 rem 

1350 data 166, 43,232,232,228, 45,208, 9,166 

1360data 44,228, 46,208, 3, 76, 20,167, 32 

1370da1a 95,163,104,160, 0,132, 75,230, 76 

1380data201, 64,208, 11,230, 75,132, 76, 32 

1390 data 115, 0, 201, 0, 240, 1 1 , 153, 197, 163 

1400 data 1 53, 203, 1 63, 200, 192, 5, 208, 238, 140 

1410data 196, 163, 140, 202, 163, 152, 240, 6, 169 

1420data 0,133, 75,240, 11,162, 11,189, 9 

1430data164,157,196,163,202, 16,247,166, 43 

1440data202, 134, 32,165, 44,133, 33,169, 

1450dala141, 91,161,230, 30,133, 2,141,193 

1460 data 162, 169, 29,133,251,169,167,133,252 

1470data173, 197, 163,201, 58,176, 8,238, 91 

1480 data 161, 169, 0, 141, 187, 160, 32, 4, 162 

1490data166, 2,240, 3, 76, 71,162,162, 

1500 data201, 143,240, 10,201,131,240, 6,201 

1510data 34,208, 18,162, 34,142,160,160, 32 



82 
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3 

254 

1 

255 

32 

32 

32 
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2 

217 
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76 



40 
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115 

72 



32 
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1 520 data 4, 162, 201 , 0, 240, 223, 201 , 0, 208 
1530data245,240,2l'7,174, 91,161,240, 40,201 
1540 data 138. 240, 20,201,137,240, 16,201,141 
1550 data 240, 12, 201, 167, 240, 8, 162, 0, 240 
1560 data 189, 201, 44,208,180,141,187,160, 32 
1570data 4,162,201, 58,176,170,201, 48,144 
1580data166, 176, 8,201, 65,144,165,201, 91 
1590data176, 161,169,202, 133. 25, 32, 75,161 
1600 data 240, 37,166, 76,208,148,144, 5,141 
1610data193, 162,176, 141, 169,196,133, 25, 32 
1620datal45,161,144, 20.240, 18,169,202,133 
1630data 25, 32,185,161,169, 29,133,251,169 
1640 data 167, 133,252, 32,201,161, 76,123,160 
1650data169,164,141, 23,161,160, 0,185, 21 
1660 data 164, 240, 11, 32,210,255,200,208,245 
1670data238, 23,161,208,240, 76, 20,167, 32 
1680 data 84,163,240, 27, 32, 8,163,240, 14 
1690 data 160, 0,177,253,133, 20,200,177,253 
1700datal33, 21, 76, 23,167,169, 29,133,251 
17l0data169, 167, 133,252, 76, 0,163,165, 32 
1720data133, 27,165, 33,133, 28,169, 1,133 
1730data 29, 32, 4,162,162. 0,208, 24.201 
1740 data 91,176, 32,201, 65,176, 24,201, 36 
1750data240, 8,201, 37,240, 4,201, 40,208 
1760data 4,230, 29,208, 12,201, 58,176, 8 
1770data201, 48,144, 4,230, 29,208,213,165 
1780data 30,208, 11, 56,165, 32,233, 1,133 
1790data 32,176, 2,198, 33,173, 91,161,240 
ISOOdata 5, 32,178,161,208, 29,160, 0,177 
1810data 25,197, 29,144, 2,165, 29,170,240 
1820dala 10,177, 27,200,209, 25,208, 9,202 
1830 data 208, 246, 160, 0,165, 29,209, 25, 96 
1840data160, 0,165, 29,145, 25,170,177, 27 
1850 data 200, 145, 25,202,208,248, 96, 32, 84 
1860 data 163, 240, 24,160, 0.177,251,197, 20 
1870data208, 16,200,177,251,197, 21,208, 9 
1880data200, 169, 1, 24,113,251,145,251, 96 
1890data 24,165,251,105, 3,133,251,165,252 
1900 data 105, 0,133,252,160, 0,165, 20.145 
1910 data251, 200, 165, 21,145,251,200,169, 1 
1920data145,251, 96,169, 1,141, 35,162,165 
1930data 30,240, 18,198, 30,160, 3,177, 32 
1940data133, 20,200,177, 32,133, 21,169, 5 
1950data141, 35,162, 24,165, 32,105, 1,133 
1960 data 32,165, 33,105, 0,133, 33,160, 
1970data177, 32,240, 5,201, 32,240,206, 96 
1960data200,209, 32,240, 3.230. 30, 96,200 
1990data209, 32,208,248,230, 2, 96, 32, 84 
2000datal63, 240, 116, 32,230,161,169, 13, 32 
2010 data 17.167,174,202,163,160, 1,185,202 
2020data163, 32, 17,167,200,202,208,246, 32 
2030data 32,163,169, 32,133,253,169,167,133 
2040data254, 160, 0, 177, 253, 141, 174, 163, 200 
2050data177,253, 141,175, 163, 200, 177, 253, 72 
2060 data 32,108,163,104,141,174,163,201, 1 
2070data240, 18,238,168,162,169, 47,157,176 
2080 data 163, 232, 169, 0, 141, 175, 163, 168, 32 
2090 data 120, 163, 169, 32, 157, 176, 163, 232, 238 
2100 data 168, 162. 169, 0, 201, 0, 176, 10, 169 
2110data 13, 32, 17,167.160, 1, 32, 32,163 
2120data 32, 51,163, 32, 64.163. 32, 8,163 
2130data208, 174, 169, 0,240, 26,174,202,163 
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2140 data 189, 202, 163, 157, 196, 163, 202, 16, 247 
2150data162, 5,189, 15,164,157,202,163,202 
2160data 16,247, 76, 79,160,165, 75,240, 22 
2170data198, 75, 32, 95,163,169, 64,141,197 
2180dalal63,169, 1,141,196,163,162, 2, 76 
2190 data 208, 162, 104, 104, 169, 29, 133,253, 169 
2200d3la167. 133,254, 160, 40, 32, 97,163, 76 
2210 data 20,167, 24,165,253,105, 3,133,253 
2220 data 1 65, 254, 1 05, 0, 1 33. 254, 1 65, 251 , 1 97 
2230 data 253, 208, 4,165,252,197,254, 96,138 
2240 data 72.169, 32, 32, 17,167,232,200,192 
2250 data 11,208,245,142,168,162,104,170, 96 
2260data160, 0,185,176.163, 32, 17,167,200 
2270 elata 202, 208, 246, 96, 32, 26,167,201, 80 
2280 data 208, 6, 32, 26,167,170,240,250.201 
2290 data 3,208, 13, 76,246,162,169, 29,197 
2300 data 251, 208, 4,169,167,197,252, 96,160 
2310data 0,185,208,163,240,248, 32, 17,167 
2320data200, 208,245, 160, 10,162, 0,169, 48 
2330data153, 175, 163, 136, 208,248, 142, 153, 163 
2340data 56,173,174,163,249,186,163, 72,173 
2350 data 175, 163, 249, 187, 163, 144, 12, 141, 175 
2360 data 163, 104, 141, 174,163,254, 176,163,176 
2370 data 228, 104,224, 0,208, 7,189,176,163 
2380 data 201 , 48, 240, 4, 232, 238, 168, 1 62, 200 
2390data200, 192, 10,208,206. 96. 0, 0, 48 
2400 data 48, 48, 48, 48, 48, 48, 48, 48, 48 
2410 data 16, 39,232, 3,100, 0, 10, 0, 1 
2420 data 0, 78, 85, 77, 66, 69, 82, 78, 85 
2430data 77, 66, 69, 82, 13, 13, 18, 86, 65 
2440 data 82, 47, 78, 85, 77, 32, 45, 32, 65 
2450 data 80, 80, 69, 55, 82, 83, 32, 79, 78 
2460 data 32, 76, 73, 78, 69, 32, 78, 85, 77 
2470data 66, 69, 82. 40, 83, 41, 13, 0, 13 
2480 data 13, 18, 69, 78, 68, 32, 79, 70, 32 
2490data 84, 69, 88, 84, 13, 13, 0, 1, 48 
2500 data 32. 32, 32, 32, 5, 90, 90, 90, 90 
2510 data 90,147, 32, 32, 32, 32, 32, 32, 32 
2520data 32, 32, 32, 32, 32, 32. 32, 18, 88 
2530 data 82, 69, 70, 54, 52, 32, 72, 69, 76 
2540 data 80, 13, 13, 34, 88, 34, 32, 67, 65 
2550 data 78, 32, 69, 81, 85, 65, 76, 32, 65 
2560 data 32, 86, 65, 82, 73, 65, 66, 76, 69 
2570 data 32, 85, SO, 32, 84, 79, 32. 70, 73 
2580 data 86, 69, 13, 76, 69. 84, 84, 69, 82 
2590 data 83, 32, 76, 79, 78, 71, 44, 32, 79 
2600 data 82, 32, 65, 32, 78, 85, 77, 66, 69 
2610 data 82, 32, 66, 69, 84, 87, 69, 69, 78 
2620data 13, 48, 45, 54, 53, 53, 51, 53, 46 
2630 data 13, 13, 18, 34,' 88, 82, 69, 70, 64 
2640 data 32, 60, 67, 82, 62, 34,146, 32, 58 
2650 data 80, 82, 73. 78, 84. 83, 32, 65, 76 
2660 data 76, 32, 82, 69, 70, 69, 82, 69, 78 
2670 data 67, 69, 83, 46, 13, 18, 34, 88, 82 
2680 data 69, 70, 42, 64, 32, 60, 67, 82, 62 
2690 data 34,146, 32, 58, 80, 82, 73, 78, 84 
2700 data 83, 32, 65, 76, 76, 32, 82, 69, 70 
2710 data 69, 82, 69, 78, 67, 69, 83, 32, 84 
2720data 79, 13, 89, 79, 85, 82, 32, 80, 82 
2730data 73, 78, 84, 69, 82, 46, 13, 18, 34 
2740 data 88, 82, 69, 70, 64, 32, 88, 32, 60 
2750 data 67, 82, 62, 34,146, 32, 58, 80, 82 
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84, 
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76, 


76, 


32 


KD 


2770 data 


82, 


69, 


70, 


69, 


82, 


69, 


78, 


67, 


69 


CA 


27S0 data 


83, 


44, 


13, 


70, 


82, 


79, 


77, 


32, 


34 


NB 


2790 data 


88, 


34, 


32, 


79, 


78, 


46, 


13, 


18, 


34 


EC 


2800 data 


88, 


82, 


69, 


70, 


42, 


64, 


32, 


88, 


32 


AF 


2810 data 


60, 


67, 


82, 


62, 


34, 


146, 


32, 


58, 


83 


GE 


2820 data 


65, 


77, 


69, 


32, 


65, 


83, 


32, 


65, 


66 


BF 


2830 data 


79, 


86, 


69, 


44. 


32. 


66, 


85, 


84, 


32 


NG 


2840 data 


84, 


72, 


69, 


13, 


79, 


85, 


84, 


80, 


85 


KF 


2850 data 


84, 


32, 


73, 


83, 


32, 


83, 


69, 


78, 


84 


AH 


2860 data 


32, 


84, 


79, 


32, 


89, 


79, 


85, 


82, 


32 


LF 


2870 data 


80, 


82, 


73, 


78, 


84, 


69, 


82, 


46, 


13 


B 


2880 data 


18, 


34, 


88, 


82, 


69, 


70, 


32, 


88, 


34 


HG 


2890 data 


32, 


79, 


82, 


32, 


34, 


88, 


82, 


69. 


70 


II 


2900 data 


42, 


32, 


88, 


34, 


146, 


32, 


58, 


80, 


82 


KJ 


2910 data 


73, 


78, 


84, 


83, 


32, 


84, 


79, 


32, 


84 


OM 


2920 data 


72, 


69, 


13, 


83, 


67, 


82, 


69, 


69, 


78 


GL 


2930 data 


32, 


79, 


82, 


32, 


89, 


79, 


85, 


82, 


32 


AL 


2940 data 


80, 


82. 


73, 


78, 


84, 


69, 


82, 


32, 


65 


GP 


2950 data 


76, 


76, 


32, 


82, 


69, 


70, 


69, 


82, 


69 


ON 


2960 data 


78, 


67, 


69, 


83, 


13, 


84, 


79, 


32, 


34 


GO 


2970 data 


88, 


34, 


46, 


13, 


18, 


34, 


88, 


82, 


69 


LL 


2980 data 


70, 


32, 


60, 


67, 


82, 


62, 


34, 


146, 


32 


NO 


2990 data 


58, 


67, 


79, 


78, 


83, 


69, 


67, 


85, 


84 


JB 


3000 data 


73, 


86, 


69, 


76, 


89, 


32, 


76, 


73, 


83 


MB 


3010 data 


84, 


83, 


32, 


79, 


78, 


69, 


13, 


66, 


65 


HA 


3020 data 


83, 


73, 


67, 


32, 


76, 


73, 


78, 


69, 


44 


EB 


3030 data 


32, 


87, 


72, 


69, 


82, 


69, 


32, 


34, 


88 


AB 


3040 data 


34, 


32, 


65, 


80, 


80, 


69, 


65, 


82, 


83 


PA 


3050 data 


46, 


13, 


13, 


80, 


82. 


69, 


83, 


83, 


32 


HA 


3060 data 


84, 


72, 


69, 


32, 


34, 


80, 


34, 


32, 


75 


GG 


3070 data 


69, 


89, 


32, 


84, 


79, 


32, 


80, 


65, 


85 


OF 


3080 data 


83, 


69, 


32, 


84, 


72, 


69, 


13, 


76, 


73 


PE 


3090 data 


83, 


84, 


73, 


78, 


71, 


44, 


32, 


65, 


78 


Kl 


3100 data 


68, 


32, 


65, 


78, 


89, 


32, 


75, 


69, 


89 


DH 


31 10 data 


32, 


84, 


79, 


32, 


67, 


79, 


78, 


84, 


73 


IG 


3120 data 


78, 


85, 


69, 


46, 


13, 


80, 


82, 


69, 


83 


OJ 


3130 data 


83, 


32, 


82, 


85, 


78, 


47, 


83, 


84, 


79 


M 


31 40 data 


80, 


44, 


32, 


84, 


79, 


32, 


67, 


65, 


78 


JJ 


3150 data 


67, 


69, 


76, 


32, 


84, 


72, 


69, 


32, 


76 


DH 


3160 data 


73, 


83, 


84, 


73, 


78, 


71, 


46, 


13, 


13 


CB 


3 170 data 


0, 


147, 


13, 


32, 


32, 


32, 


32, 


32, 


32 


HC 


3180 data 


32, 


32, 


32, 


32, 


32, 


32, 


32, 


32, 


32 


HJ 


3190 data 


32, 


18, 


88, 


82, 


69, 


70, 


54, 


52, 


13 


D 


3200 data 


13, 


13, 


32, 


32, 


32, 


32, 


32, 


32, 


32 


JL 


3210 data 


32, 


65, 


32, 


86, 


65, 


82, 


73, 


65, 


66 


BO 


3220 data 


76, 


69, 


32, 


38, 


32, 


76, 


73, 


78, 


69 


FM 


3230 data 


32, 


78, 


85, 


77, 


66, 


69, 


82, 


13, 


32 


D 


3240 data 


32, 


32, 


32, 


32, 


32, 


32, 


32, 


67, 


82 


FP 


3250 data 


79, 


83, 


83, 


32, 


82, 


69, 


70, 


69, 


82 


OP 


3260 data 


69, 


78, 


67, 


69, 


32, 


80, 


82, 


79, 


71 


EK 


3270 data 


82, 


65, 


77, 


13, 


13, 


32, 


32, 


32. 


32 


IN 


3280 data 


32, 


32, 


18, 


40, 


67, 


41, 


32, 


49, 


57 


KC 


3290 data 


56, 


53, 


32, 


66, 


89, 


32, 


68, 


65, 


86 


IC 


3300 data 


73, 


68, 


32, 


65, 


82, 


67, 


72, 


73, 


66 


GG 


3310 data 


65, 


76, 


68, 


13, 


13, 


0, 


162. 


6.1, 


160 


OA 


3320 data 0,2, 


134, 


55, 


132, 


56, 


169, 


76, 


162,89.1 


ON 


3330 data 160, 


0,2, 


133, 


124, 


134, 


125, 


132, 


126, 


160 


MP 


3340 data 


0, 


185, 


103, 


166, 


240, 


9, 


32, 


17, 


167 


KP 


3350 data 200, 208, 245, 


76,31.1, 


0.2, 


76,38.1, 


0.2 


MB 


3360 data 


76,46.1, 


0.2, 


76,57.1, 


0.2. 


76,71.1. 


0.2 


PI 


3370 data 


76,77.1, 


0,2, 
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Beyond COMPARE 



David Lathrop 
Fremont, California 



Find the differences between two files of any kind - 
BASIQ assembler, text, database records, or hexadecimal! 



Utilities are usually pretty dull subjects. So a file compare program 
probably will not generate a lot of excitement — until you need it. 
When you 'do need one, you may discover that there are not many 
of ihem available, and they do not handle inserted or deleted 
records very weJL Furthermore, if you compare BASIC or machine 
language program files, these other compare programs show file 
differences in binary or ASCII data as they are stored on disk, not as 
BASIC statements or ML instructions. 

COMPARE is a file comparison utility that does not suffer from these 
shortcomings. It recognizes inserted and deleted lines and makes 
adjustments before continuing with the comparison, (t the files are 
BASIC programs, COMPARE will list the program files as the UST 
command does (that is, the line numbers and tokens will be 
interpreted). If the files are 6502 machine language programs, they 
can be disassembled. If the files are text or data, they may be shown 
as either ASCII text or hexadecimal data. 

A simple BASIC program is shown in Figure 1 . A modified version of 
it is shown in Figure 2. Can you easily see the differences? A report 
created by COMPARE is shown in Figure 3, and this report clearly 
shows how the two programs differ 

A nice fringe benefit of COMPARE is the ability to list a file in a 
variety of formats. To do this, the file is compared with '^nothing". 
All the differences between the file and "nothing" are reported, and 
these differences represent the entire contents of the file. We'll 
discuss how to do this shortly. 

Program Preparation 

First enter and save Program I. This BASIC program, named 
COMPARE, is the main prc^ram which loads ML routines and 
prompts for information such as file names and report formats. It 
then calls the ML routines to do the comparison. 

Next enter, save and run Program 2. This BASIC program creates an 
ML prc^ram named CMP.ML6SO0, This ML program reads the 
files, compares them, and reports the differences. 

How to use COMPARE 

After saving the BASIC and ML programs on disk, load and run 
COMPARE. After loading the ML routines, COMPARE will prompt 
you for the following: 

1 . The address of the drive you wish to use - this is usually 8 or 9. 

2, The name of the OLD file - COMPARE assumes that one of the 
two files pre-dates the other, so the earlier one is called the OLD 
file. If you are In doubt about the file's name, you can list the 
diskette directory by entering $ as the file name. 



3. The name of the NEW file - For comparisons, this is the name of 
the second file. But if you want to list the OLD file, enter an 
asterisk (*) as the NEW file name, 

4. The destination of the comparison report - Choose s for screen, 
or p for printer. 

5. The report format - If the OLD file is a program file, you may 

choose a (ASCII text), b (BASIC list), d (disassembled 6502 list), or 
X (hexadecimal data) formats. 

If the OLD file is a sequential, user or relative file, you may choose a 
(ASCII text) or x {hexadecimal data) format. 

The choice of formal tells COMPARE how to process the file's 
records, and how to prepare the display of non-comparing records. 
If you request either a BASIC or 6502 machine language report, that 
is sufficient information for the compare to begin. However if you 
request either ASCII text or hexadecimal data formats, you must tell 
COMPARE what kind of records these files have. 

If you don 't know what the internal structure of the file is, COMPARE 
con help you by listing the files for inspection. Pick one of the files for 
the OLD file name, specify * for the NEW file name, select report 
format x for hexadecimal, choose f for fixed record length, and 
specify a record length of 127 bytes. With a little investigation, you 
sfK}uld be able to determine how records are defined in the file. 

COMPARE can work with fixed (f) or variable (v) length records. If 
the record length is fixed, COMPARE will ask you what that length 
is. But if the length is variable, COMPARE will ask how it can 
determine the end of each record. Three possibilities are allowed; 

L The length of the record is contained in the data. For example, 
suppose the first byte indicates how long the record is. In this case 

you would choose option I and indicate that the position of the 
length value is one. 

2. The end of the record is marked by a special character. For 
example, many text files terminate a line or paragraph with a 
carriage return. In this case you would choose option c and 
indicate that the decimal value of the special character is 1 3, 

3. The end of the record is marked by special bits, the value of which 
is called a mask. To use this option, you need to understand how 
eight bit bytes can be expressed as decimal values from to 255. 
For example, many text files mark the end of a record by setting 
the most significant bit. In this case you would choose option m 
and indicate that the mask is 12S. 

For option c or m, you will be asked for a minimum record length. 
This is because it is possible that the special character or mask may 
appear in the first few bytes of a record. For example, a BASIC 
program file has a minimum record length of four because a 2ero 
marks the end of a statement, but a zero may also appear in the first 



The Trantactof 



56 



July 1987: Volume 8, Issue 01 



four byles as either part of the line number or the line link. This 
prompt allows you to tell COMPARE to ignore any occurrence of the 
special character or mask at the start of a record. Specify zero if this 
is not the case. 

A! the completion of this step, you will have described to COMPARE 
the nature of the files to compare and the formal of the comparison 
report you wish to see. Now ihe comparison will start. Figure 3 
shows an example of a comparison between two BASIC program 
files. Figures 4 and 5 show a 6502 disassembly and a hexadecimal 
list of another program. Report types a, d, and x show the ASCII 
represenlalion of data, but ail Commodore graphics characters, 
cursor movement and color characters are shown as periods. 

When the comparison begins, a report heading is printed which 
shows the names of the two files. Following the header, each 
mismatch between files is grouped into blocks. The records in the 
OLD file which do not compare are listed first followed by a dashed 

line ( y The corresponding part of the NEW file is then listed 

followed by a line of equal signs (= = = = = = =). You will note that 

the last line printed for both files in each block of mismatched 
records {except possibly the very last block) are identical. This is the 
point where COMPARE has determined that the files are the same, 
has realigned them and continued the comparison. A count of the 
mismatched blocits is shown at the end of the report. 

While the comparison is taking place, you may press any of the 
following keys: 

CTRL slows the scrolling speed if the comparison report Is dis- 
played on your monitor screen. 

F3 terminates the comparison immediately. 

F7 pauses the comparison. This is useful if the report is displayed 
on the screen and you wish to study it before letting it scroll by. 
Press any other key to resume. 

Technical Notes 

The BASIC and ML programs communicate with each other via 
variables. Variables associated with the OLD file begin with an "o", 
and variables associated with the NEW file begin with an "n". The 
variables are defined before the ML program is called, and are used 
as follows: 

Genera! variables 



^ disk unit address (input to ML) 

- printer or screen address (to ML) 

- printer secondary address (to ML) 

- mis-match count {output from ML} 

- return code (from ML) 



dn 

pn 

pc 

mm% 

rc% 



OLD file 

00$ - file name padded with shifted spaces (to ML) 

ov$ - report format a,b,d,x (to ML) 

ol$ - record type f,v,i,c,m (to ML) 

02$ - rec, length, length position, character or mask {to ML) 

os$ " minimum record lenglh (to ML) 

of$ - 4K buffer RAM page nr (to ML) 



ob% - file starting track & sector (to/from ML) 

oy % - file type 1 ^ seq,2 ^ prg,3 = usr,4 ^ rel (from ML) 

NEW file 

nn$ - file name padded with shifted spaces 
n?? - see OLD file variables above 



The COMPARE ML program resides between $6800 and $8000, so 
it should be able to co-exist peacefully with expansion cartridges 
and most other ML programs. Page zero is used heavily, but it is 
saved and subsequently restored before the ML ends. TVo 4K file 
buffers fit between $4000 and $6000, so the BASIC program lowers 
MEMTOP accordingly (see line 1 0). If you wish to increase the RAM 
available to BASIC, you can move the buffers up under BASIC ROM 
between $A000 and $C0OO by setting of$ = chr$(l60): 
nf$ = chr$(i76). 

The BASIC program may be modified to suit your tastes if you take 
care to define the variables shown above before you SYS to any of 
the ML routines. If you wish to make modifications, the following 
will be of interest; 

If pn% =3, a 40 column report is created to fit on the screen, 
otherwise an 80 column report is produced. If you have an 80 
column cartridge, you can show 80 columns on the screen by 
opening a file to the screen such as pn% = 5:open5»3»0- 

You may also write a report to disk by opening a file such as 
pn% =2:open2,8,2,"comp.report»s,w'\ 

\i you wish to display or compare files which do not have entries in 
the diskette directory, you may do so by setting ob % and nb % equal 
to the files' beginning track and sector. For example, to list a diskette 
BAM and directory blocks, set nb% = 0: ob% = 18*256 before the 
sys26624. 

Beyond Compare 

As good as COMPARE is, it is not foolproof. If two files have a 
number of identical records in them such as blank lines in a text file 
or REM statements without any text in a BASIC program, COMPARE 
can be fooled into thinking it has found a point where two dissimilar 
files are the same and a block of non-comparing records may be 
printed prematurely This is usually not a serious problem, but if 
these "trivial" records disrupt the comparison, you may wish to 
make copies of the two files with these records deleted. 

All of the records for each file which do not compare are held in 
RAM until they are printed, if there is a large block of records in 
either file which does not correspond to any records in the other file, 
COMPARE may run out of space to hold the records. When this 
happens, a warning message will be printed, all records currently in 
memory will be printed and the comparison will continue from that 
point. This event may cause COMPARE to subsequently report 
differences between the files when \n fact they do not exist. 

After you have used COMPARE, you may find it very valuable as a 
file listing utility. You can use it to examine database files and see 
how they are structured, it is very helpful in listing BASIC programs 
with REM statements which confuse the LIST command. Machine 
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language programs may be disassembled and listed directly from 
disk. But compare's main function is to compare two files. When 
you need to do ifiat, there is lillle else around that works as well. In 
those situations, this little utility is beyond compare. 

Figure 1: UNNEW.BASIC Program File UsHng 

1 00 poke53281 ,0. print " . .sys525 " 

1101 = 525 

1 20 readaifa = 256then 1 30 

130pokGi,a:i = i+1:9Oto120 

140 poke43,525 and 255:poke44,2 

1 50 poke45,578 and 255:poke46,2 

reo print ■ . " :save " 0:unnew" ,8 

1 70 rem for tape use save " unnew ",1,1 

180data160, 3,200,177, 43,208,251 

190data200, 200,152, 160, 0,145, 43 

200data165, 44,200,145, 43,133, 60 

210data160, 0,132, 59,162, 0,200 

220 data 208, 2,230, 

230 data 245, 232, 224, 

240 data 208, 2,230, 

250 data 60,132, 46, 



60,177, 59,208 
3,208,242,200 
60,132, 45, 164 
96, 256 



ngure 2: UNNEW.BASIC2 Program FUe Listing 

1101 = 525 

1 20 readaifa = 256thenl 30 

130 pokef,a:i = 1 + 1 :gotol 20 

140 poke43,525 and 255:poke44,2 

150 poke45,578 and 255;poke46,2 

1 60 print " . " ;save "0:unnew " ,8 

170 data 160, 3,200,177, 43,208,215 

1 80 data 200, 200, 1 52, 1 60, 0, 1 45, 43 

190data165, 44,200,145, 43,133,60 

200 data 1 60, 0, 1 32, 59, 1 62, 0, 200 

210 data 208, 2,230, 

220 data 245, 232, 224, 

230 data 208, 2,230, 

240 data 60,132, 46, 



60,177, 59,208 
3,208,242,200 
60,132, 45, 164 
96, 256 



Figure 3: BASIC Program Files Comparison Report 

• File Comparison Utility V3.4 • 

OLD Name: unnew.basic 
NEW Name: unnew.basic2 

100 poke53281,0:prinlV.sys525" 
no i = 525 

110 i = 525 



Figure 4: Mactiine L^anguage Program Disassembly 

(Editor's Note: COMPARB prints a character representation of the 
bytes in the column down the right. Some of the characters are 
graphics that we can't typeset. However, they aren't critical for the 
example reports, so we've replaced them with a § ) 

• File Comparison Utility V3.4 * 

OLD Name: unnew 
NEW Name:* 



020d- 


aO 03 


Idy 


#$03 


<. .> 


020f- 


C8 


iny 




<H> 


0210- 


b1 2b 


^da 


($2b),y 


<§+> 


0212- 


dO fb 


bne $020f 


<P§> 


0214- 


c6 


iny 




<H> 


0215- 


ce 


iny 


- 


<H> 


0216- 


98 


tya 




<■> 


0217- 


aO 00 


Idy 


#$00 


<. .> 


0219- 


91 2b 


sta 


{$2b),y 


<- +> 


021b- 


a5 2c 


ida 


$2c 


<§,> 


021d- 


c6 


iny 




<H> 


021e- 


91 2b 


St a 


($2b),y 


< . +> 


0220- 


85 3c 


sta 


$3c 


<.<> 


0222- 


aO 00 


dy 


#$00 


<■ -> 


0224- 


84 3b 


sty 


$3b 


<■ ;> 


0226- 


a2 00 


idx 


#$00 


<§-> 


0228- 


c8 


iny 




<H> 


0229- 


do 02 


bne $022d 


<P,> 


022b- 


e6 3c 


inc 


$3c 


<§<> 


022d- 


b1 3b 


Ida 


($3b),y 


<§;> 


022f- 


dO f5 


bne $0226 


<P§> 


0231" 


e8 


inx 




<§> 


0232- 


eO 03 


cpx 


#$03 


< .> 


0234- 


dO f2 


bne $0228 


<p§> 


0236- 


c6 


iny 




<H> 


0237- 


dO 02 


bne $023b 


<P-> 


0239' 


e6 3c 


inc 


$3c 


<§<> 


023b- 


84 2d 


sty 


$2d 


<. -> 


023d- 


a4 3c 


Idy 


$3c 


<§^ 


023f- 


84 2e 


sty 


$2e 


<■ -> 


0241- 


60 


ris 




< > 



Figure 5: Hexadecimal Listing 

• File Comparison Utility V3.4 • 

OLD Name: unnew 
NEW Name: - 



1 70 rem for tape use save " unnew \ 1 , 1 
180data160, 3,200,177, 43,208,251 
190 data200,200, 152, 160, 0, 145, 43 

170 data 160, 3,200,177, 43,208,215 
180 data200, 200, 152,160, 0,145, 43 

Compare finished. 2 mismatches found. 



0000 0dO2 a003 c8b1 2bd0 
fbcS 0698 aOOO 912b 
a52c 0691 2bS5 3caO 
0084 3ba2 00c8 d002 



<• . . .H§ -+-P> 
<§HH. , . , +> 
<§ , H. +.<.> 
<, . ; § ,HP.> 



0020 e63c b13b dOfS e8eO <§<§;P§§ > 
03d0 f2c8 d002 e63c <.P§HP,§<> 
842d a43c 842e 60 <.-§<.. > 
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f 
I 



CN 

Gl 

DL 

\C 
10 
10 
EL 
OG 

HK 

BK 

EB 
PG 

Gl 

FD 

JH 

JA 
DP 
HA 
Ml 
PB 
PC 

OP 

DL 

LL 

MN 

KK 

JF 

BK 

LK 

PB 

IH 

KF 

FJ 

GN 

EL 

KM 

FM 

DN 

JC 

AC 

EG 

KE 

AP 

HL 

DA 



JJ 
Jl 
KL 

BN 



COMPARE: BASIC Portion 

I0poke56,64;clr:co = 06:cr = 02:cb = 1:poke646,co 

:poke53280,cr:poke53281 ,cb 

20 if peek(26636) = 51 and peek(26638) = 52 

then 100 
30gosub940:print"HSTANDBY- Loading 

ML Subroutines. 
40 dn%= peek{l 86):load " cnip.ml,6800 " ,dn%,l 
100 hd$ = " *■ File Comparison Utility V3.4 * " 

110bx$="[34''s]" 

120remo1$ = chr$(160):nf$ = chr$(176) 

130mm% = 0:rc% = 0:cr$ = chr$(13).ze$ = chr$(0) 

:fQrJ = 1to16:sp$-3p$ + chr$(160):next 
140ov$="":ot$=" ":oz$- " ":os$="" 

:ob%-0:oy% = 
150nv$-^^nt$=":n^S=■^ns$=^' 

:nb%-0:ny% = 
160: 

170gosub940 
1 80 dn% = 0:input" Disk unit nr (8-1 1)^dn% 

:ifdn% = then end 
190 if dn%<8 or dno/o>1 1 then print" Unit 

nrrnustbe8-11 "[gololSO 
200 gosub940:ot$ = " " ;input " OLD file name 

orB$|Q";ol$ 
210ifol$= "S" then gosub970:goto200 
220ilol$=" " thenl70 

230 nu$ = " " :input " NEW file name or fl -^ Q '^nuS 
240ifnu$= "$" thengosub970:gosub940:goto200 

250ifnu$= " ' then200 

260pd$= " ":input"Reporttons|3crGen 

or||pQrinter ";pd$ 
270if pd$= " " then230 

280ifpd$= "s" then pno/D = 3:pc% = 0;goto310 
290ifpd$= "p" thenpn% = 4:pc% = 7:goto310 
300 goto260 
310; 
320 :rem — get file type, trk, sector 

330 00$ = left$(ol$ + sp$,1 6) 

340nn$ = lett$(nu$ + sp$,16) 

350 sys26627:if nu$ = " • " then ny% = 1 : nb% - 

360ifrc%<128then400 

370 it rc%<255 then a$ = " failed. " :goto390 

380 a$= "cancelled/ 

390 print " Directory search " ;a$:goto440 

400 if oy%<>0 and nyO/oOO then480 

410ifoy% = then print "OLD file not found. ' 

420 it nyo/o = then print " NEW file not found, ' 

430 print " Enter QsQ to Itst the disk directory, " 

440 print " Press any key to continue " 

450 gel a$:if a$ = - " lhen450 

460 goto200 

470 : 

480 :rem — get report and record type 
490 os$ = 2e$:print " Choose HaQscii ■" ; 
500 if oy% = 2 then print " fl blgasic, 

B d disassembly " ' 
510ov$= ■■ '':iflput^heBx^^ov$ 
520 if ov$ = " a " or ov$ = " x " then580 
530ifoy%-2andovS= "b" thenot$= "c" 

:oz$ = chf$(0):goto820 
540 if oy% = 2 and ov$ = ^ d ^ then ot$ = " f " 

:oz$ = chr${1):goto820 



AF 
CP 
PF 
JE 

PL 
LA 
FK 
NC 
NK 

OH 

IE 
AN 

LE 

EJ 
CF 
GF 

lA 
Mi 
GK 

KC 
LG 
CL 

OE 
FP 
IN 

DH 
HK 
CH 
GC 
ML 
BD 
BE 

PA 

OL 

GH 

EM 

CJ 

WiA 

ML 

LK 

KC 

LO 

LA 

IE 
JL 



KC 

LK 

EN 
PE 
BN 
Dl 
AE 



550 if ov$ = " " then goto820 

560 goto490 

570 rem — record specification 

580ot$= " ":input "Is record length nf0ixed 

or||vQariable\otS 
590ifot$= "f" then630 
600ifot$= "v" thenOeO 
610ifot$="" then490 
620 goto580 
630 x^Oiinput" Specify record length (1'255)";x 

:ifx<l or x>255 then580 
640 oz$ = chr$(x):goto820 
650 :rem — variable In record 
660 print " Choose end of record indicator. 



670otS= ■ 
orQm 




haracter, Q 1 0ength, 



■input" Qc 

3ask";ot$ 

c " then a$ = " character " :goto730 

m" then a$== "mask" :goto730 

I ■ then790 
" then580 



680 if ot$ = 

690 if ot$ = 

700 if ot$ ^ 

710ifot$ = 

720 goto660 

730 x$ = '"^ :pnnt " Enter value of ■" ;a$; ' (0-255) " ; 

:inputx$:ifx$=" " then660 
740 X = val(x$):ii x<0 or x>255 then730 
750oz$-Ghr$(x) 
760 x$ = " " :input " Enter minimum record length 

(0-255)";x$;ifx$="" then730 
770 X = val{x$):if x<0 or x>255 then760 
780 os$ = chr$(x):goto820 
790 x$ = ^ ^ :input " Specify the location (1 -255) " ;x$ 

:ifx$-"" then760 
800 X - val{x$):if x<1 or x>255 then790 

S10oz$ = chr$(x) 

820ifov$= " " then260 

830 nv$ = ov$:nt$ = ot$:nz$ = oz$:ns$ = os$ 

840: 

850 :rem — produce comparison report 

860 a$ = chr$(147).b$ = " [3 spcs] " :if pn%<>3 

thena$ = chr$(12);b$= "[IBspcs]^ 
870 open pn%,pno/o,pc% 
880print#pn%,a$;b$;bx$;cr$;b$;hd$;cr$;b$;bx$;cr$ 

890 print#pn%,b$; " OLD Name: " ;ol$ 
900 print#pn%,b$; " NEW Name: " ;nu$;cr$ 
910sys26624:gosub990:9Oto200 

920; 

930 : — display screen header 

940pnnt"H^chr$(14)tab(3)hd$cr$cr$:return 

950: 

960: — list directory 

970 pn% = 3:nu$ = " * " :open pn%,pn%.pc% 

:sys26630 
980: 
990 a$= "Compare '":if nu$= '*' then 

a$= "Listing " 
1000 b£= " finished. ■:ifrc%>99 then b$- "failed." 

:if rco/o = 255 then b$ = " cancelled. " 
1 010 if nu$<> " * " then b$ = b$ + str$(mm%) 

+ " mismatches. " 
1020print#pno/o,cr$cr$a$b$:print#pn%:closepn% 

1030 if fDnO/o<>3 then 1060 

1 040 print " Press any key to continue. ' 

1050 get a$:ifa$= " " ora$ = chr$(136)then1050 

1060 return 
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COMPARF: Creates Machine Language file 


CP 


1520 data 104, 240, 191, 32, 42,104, 32, 18 












IF 


1530 data 104 96 


13 13 109 73 83 77 




BH 


1 rem* data loader for " i 


compare" 


^ 




I I 

JJ 


1 ^_r H—r ^_r l_n ' ^ LL-A 1 \_r 1 _ ^^r a^f 

1540 data 65. 84 


, 67, 72. 69, 68, 32, 82 




EM 


20 for i = 26624 to 31 790:read a 




1 

1 


FL 


1550dala 69, 67 


. 79, 82, 68, 83, 32, 79 




JG 


30cs = cs + a: next i 








1 


CM 


1560 data 66, 69 


, 82, 70, 76, 79, 87, 69 




CO 


40 if CS0523626 then print ' Idata error! 


"[end 


CJ 


1570 data 68, 32 


, 66, 85, 70, 70, 69, 82 




NH 


50 open 1,8,1, "cmp 


i,ml,6800,p,w" 






EJ 


1580dala 46, 13 


, 98, 85, 70, 70. 69, 82 




GJ 


55print#1,chr${0)chr$(104); 






NM 


1590 data 32, 67 


, 79, 78, 84, 69, 78, 84 




1 EF 


60 restore 










FL 


1600 data 83, 32 


, 87, 73, 76, 76, 32, 66 




LG 


70fori = lto5167 










MM 


1610 data 69, 32. 


, 80, 82, 73, 78, 84, 69 




NM 


80 read a: prin1#1 ,chr$(a) 


; : next i 






PM 


1620 data 68, 32 


, 65, 78, 68, 13, 84, 72 




FA 


90 close 1: print "ok, 


mifil 


e has been 




KO 


1630 data 69, 32 


, 67, 79, 77, 80, 65, 82 






written, ": end 










CO 


1640 data 73, 83. 


, 79, 78, 32, 87. 73, 76 




IN 


100: 










EA 


1650 data 76, 32. 


, 67, 79, 78, 84, 73, 78 




PD 


1000 data 76, 38, 


105, 


76, 21, 


106, 


76, 92 


HJ 


1660 data 85, 69. 


, 46, 13, 0, 32, 15,104 




WC 


1010 data 107. 99, 


109, 


112, 51, 


46, 


52, 76 


EA 


1670 data 173, 90. 


, 104,208, 123,162, 79,169 




FM 


1020 data 151, 108, 


76, 


194,109, 


76, 


19,110 


JH 


1680data207, 32. 


, 21,104,176,109,160, 3 




OC 


1030 data 76, 79, 


110, 


76,111, 


110, 


76, 151 


DM 1690datal77,251. 


, 133, 124,200,177,251,133 




OC 


1040 data 110, 76, 


230, 


110, 76, 


n, 


112, 76 


' CL 


1700 data 125, 162. 


,207, 169,217, 32, 21,104 




GF 


1050 data 245, 112, 


76, 


48,113, 


76, 


83, 114 


OB 


1710datal76, 89. 


,165,251,133,126,165,252 




MK; 

1 


1060 data 76, 101, 


114, 


76,110, 


115, 


76, 209 


BM 


1720datal33, 127. 


, 169, 0, 160, 3, 145,251 




JP 


1070 data 116, 76, 


218, 


117, 76,246, 


117, 76 


, HF 


i 1730data169, 194, 


, 32, 21, 104, 176, 68, 165 




KN 1080 data 61, 118, 


76, 


128, 118, 


76, 


252, 118 


JP 


■ 1740data251, 133. 


, 128, 165,252, 133, 129, 162 




NG 1090 data 76, 50, 


119, 


76, 86, 


119, 


76, 103 


NC 


1750data 78, 169. 


,206, 32, 21, 104, 176, 51 




NC 


11 00 data 11 9, 76, 


129, 


119, 76, 


165, 


119, 76 


CM 


, 1760datal60, 3. 


, 177,251, 133, 130,200, 177 




C 


11 10 data 26, 120, 


0, 


0, 0, 


8, 


15, 7 


EN 


■ 1770dala251,133. 


, 131, 162,206, 169.217, 32 




Gl 


1 

11 20 data 3, 85, 


49, 


58, 55, 


44, 


48, 44 


KP 


1780 data 21, 104. 


, 176, 31, 165,251,133,132 




JB 


11 30 data 84, 84, 


44, 


83, 83, 


0, 


102,105 


AS 


1790 da a 165, 252, 


, 133, 133, 169, 0, 160, 3 




JA 


1140data108, 101, 


no. 


97,109, 


101, 


46, 46 


CE 


1800 datal45, 251. 


, 169, 194, 32, 21, 104,176 




HN 


1150 data 46, 46, 


46, 


46, 46, 


46, 


119,114 


KD 


1810 data 10,165. 


,251,133, 134, 165,252,133 




Al 


1160 data 107, 50, 


0, 


64, 0, 


80, 


15. 


. Bl 


: 1820 data 135, 144, 


5, 169,254, 141, 90, 104 




AG 


11 70 data 0, 0, 


0, 


0, 0, 


0, 


0, 


OM 


1830 data 173, 90, 


, 104,208, 75, 32,204,255 




KG 


11 80 data 0, 0, 


0, 


0, 0, 


0, 


0, 


EJ 


1840 data 162, 94, 


,134, 78,169, 18,149, 16 




EH 


11 90 data 0, 0, 


0, 


0, 0, 


0, 


0, 


CH 


1850 data 169, 1, 


,149, 17,169, 65,149. 1 




OH 


1200 data 0, 0, 


0, 


0, 0. 


0, 


0, 


OJ 


1860 data 169, 70, 


,149, 2,169, 30,149, 3 




II 


1210 data 0, 0, 


0. 


0, 0, 


0, 


0, 


KA 


1870 data 169, 255, 


149, 14,166, 78, 180, 10 




CJ 


1220 data 0, 0, 


0, 


0, 0, 


0, 


0, 


FE 


1880 data 136, 148, 


8, 180, 11,136,148, 9 




MJ 


1230 data 0, 0, 


0, 


0, 0, 


0, 


0, 


ED 


1890 data 32, 30, 


,104,166, 78,181, 0,208 




GK 


1240 data 0, 0, 


0, 


0, 0, 


0, 


0, 


PF 


1900 data 23,181, 


. 5, 41, 7,240, 6, 32 




AL 


1250 data 0, 0, 


0, 


0, 0, 


0, 


0, 


Fl 


1910 data 36, 104, 


32, 36, 104, 32,236, 106 


1 


KL 


1260 data 0, 0, 


0, 


0, 0, 


0, 


0, 


!LM 


1920 data 32, 27, 


.104,173, 90,104,240,212 




EM 


1270 data 0, 0, 


0, 


0, 0, 


0, 


0, 


AJ 


1930 data 32, 18, 


104, 96, 181, 10. 133,251 




OM 


1280 data 0, 0, 


0, 


0, 0, 


0, 


0, 


CN 


1940data181, 11, 


133,252, 169, 153, 133,253 




IN 


1290 data 0, 0, 


0, 


0, 0, 


0, 


0, 


FD 


1950 data 169, 104. 


. 133.254, 162, 33, 160, i 




CO 


1300 data 0, 0, 


0, 


0, 0, 


0, 


0, 


FM 


1960 data 32, 69, 


. 104, 173, 156, 104, 16, 83 




MO 


1310data 0, 0, 


0, 


0, 0, 


0, 


0, 


ME 


1970 data 41,127, 


170,160, 3,177,126,208 




GP 


1320 data 0, 0, 


0, 


0, 0, 


0, 


0, 


GO 


1980 data 28, 160, 


, 15,185,159,104,209,124 




AA 


1330 data 0, 0, 


0, 


0, 0, 


0, 


0. 


DP 


1990dala208, 19, 


136, 16,246,160, 3,138 




KA 


1340 data 0, 0, 


0, 


0, 0, 


0, 


0, 


PO 


2000 data 145, 126, 


173,158, 104, 145,128,136 




EB 


1350 data 0, 0, 


0, 


0, 0, 


0, 


0, 


KA 


2010data173, 157, 


104,145,128,160, 3,177 




MD 


1360 data 0, 0, 


0, 


0, 0, 


0, 


32, 15 


GP 


2020 data 132, 208, 


31, 160, 15, 185,159,104 




DM 


1370 data104, 169, 


124, 


133, 79, 


169, 


94, 133 


NP 


2030 data 209, 130, 


208, 31, 136, 16,246,160 




PF 


1380 data 78,173, 


90, 


104,208, 


52, 


32, 30 


LO 


2040 data 3, 138, 


145, 132, 173, 158, 104, 145 




DM 


1390 data 104, 32. 


27, 


104,173, 


90, 


104,208 


AP 


2050 data 134, 136, 


173,157,104,145,134, 24 




JM 


1400data 41,166, 


78, 


181, 0,240, 


8, 166 


NC 


2060 data 144, 9, 


177, 126,240, 5, 169, 1 




KM 


1410data 79,181, 


0, 


240, 13, 


208, 


27, 32 


OD 


2070 data 141, 90, 


104, 96, 32, 15, 104, 173 




GG 


1420 data 60,104, 


240, 


14,166, 


79, 


181, 


KH 


2080 data 90, 104, 


240, 4, 32, 18,104, 96 




HF 


1430 data 208, 220, 


165, 


78, 134, 


78, 


133, 79 


AO 


2090 data 32,204, 


255, 162, 94,134, 78,169 




AJ 


1440 data 208, 212, 


32, 


42,104, 


32, 


66, 104 


CJ 


2100data 18, 149, 


16,169, 0,149, 17,169 




FA 


1450 data 208, 204, 


166, 


79,181, 


8, 


133, 80 


AL 


21 10 data 65, 149, 


1, 169, 70, 149, 2, 169 




GM 


1460data181, 9, 


133, 


81,173, 


90, 


104,201 


FE 


2120data 30, 149, 


3, 169,255, 149, 14, 32 




FF 


1470 data 253, 208, 


40, 


162, 124, 


181, 


16, 21 


LH 


2130 data 36, 104, 


173, 90, 104,208, 124, 166 




JN 


1480 data 17,240, 


25, 


174, 96, 


104, 


32, 201 


LM 


2140data 78, 169, 


142,149, 14, 32, 30,104 




PM 


1490 data 255, 162, 


0, 


189,170, 


105, 


240, 6 


BJ 


21 50 data 173, 90, 


104,208, 110, 32, 105, 108 




LB 


1500 data 157, 194, 


104, 


232, 208, 


245, 


32, 57 


MK 


21 60 data 160, 17, 


185, 156, 104, 153,204, 104 




FD 


1510 data 104, 32, 


204, 


255. 169, 


0, 


141, 90 


EL 


2170data136, 16, 


247, 173, 174, 104, 141,224 
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IJ 

NJ 

AL 

MM 

NP 

PM 

LM 

HN 

AO 

KO 

LM 

NN 

DH 

LA 

DB 

DH 

LF 

GF 

EF 

PM 

EJ 

LJ 

IJ 

lA 

KM 

EH 

OH 

NP 

GH 

Gl 

MB 

CP 

EJ 

CP 
AN 
GA 
FO 
EC 
KC 
OE 
IF 
AN 
DF 
DN 
KL 
GJ 
CE 
PI 
OP 
LJ 
Gl 
LF 
NO 
PL 
PK 
CM 
IM 
PM 
LM 
DC 
LL 
MD 
II 
LI 
EC 
OH 



2180 data 104, 173, 175, 104, 141, 225, 104, 169 
2190 data 13,141,231,104,141,232,104,169 
2200data147, 174, 96,104,224, 3,240, 2 
2210data169, 12,141,194,104, 32,201,255 
2220 data 162, 39, 32, 57,104,166, 78,169 
2230 data 0,149, 5,169,255,149, 14,166 
2240data 78,180, 10,136,148, 8,180, 11 
2250 data 136, 148, 9, 32, 30,104.166, 78 
2260 data 181, 0,208, 23,181, 5, 41, 7 
2270 data 240, 6, 32, 36,104, 32, 36,104 
2280data 32, 15,108, 32, 27,104,173, 90 
2290data104, 16,212, 32, 18,104, 96, 32 
2300dala105, 108, 173, 156, 104. 16, 81, 41 
2310 data 127, 10, 10,105, 3,168,162, 3 
2320dataie5, 131,108, 157, 216, 104, 136,202 
2330 data 16,246,162, 15,189,159,104,157 
2340 data 199, 104,202, 16,247, 173,185,104 
2350 data 170, 173, 184, 104, 32, 84,104,160 
2360 data 5,185, 87, 0,153,219,104,136 
2370daia 16,247,160, 3,185,131,108,153 
2380data226, 104, 136, 16,247,169, 13,141 
2390 data 232, 104, 32,204,255,174, 96,104 
2400 data 32,201,255,162, 39, 32, 57,104 
2410data 96,166, 78,181, 10,133,251,181 
2420 data 11,133,252, 169, 153,133,253, 169 
2430data104, 133,254, 160, 0,162, 33, 32 
2440 data 69,104, 96, 66, 76, 75, 83, 83 
2450 data 69, 81, 32, 80, 82, 71, 32, 85 
2460 data 83, 82, 32, 82, 69, 76, 32,169 
2470data 0,141, 91,104,141, 92,104,141 
2480data 90,104,141, 26,208,141, 13,221 
2490 data 169, 32,162, 99,157,194,104,202 
2500 data 16,250,162,208,169,206, 32, 21 
2510 data 104, 176, 7,160, 3,177,251,141 
2520 data 96,104,162,196,169,206, 32, 21 
2530 data 1 04, 1 76, 7, 1 60, 3, 1 77, 251 , 141 
2540data 93,104,169,124,133,251,169, 
2550 data 133, 252, 169, 135, 133,253,169,104 
2560data133, 254, 162, 18,160, 0, 32, 69 
2570 data 104, 173, 94,104,174, 93,104,172 
2580data 94,104, 32,186,255,169, 2,162 
2590data 58,160,109, 32,189,255, 32,192 
2600data255, 32, 39,104,208, 51,173, 95 
2610 data 104, 174, 93,104,172, 95,104, 32 
2620data186,255, 169, 1,162, 60,160,109 
2630 data 32,189,255, 32,192,255, 32, 39 
2640 data 104, 208, 22,160, 94,173,131,104 
2650data162, 79, 32, 61,109,208, 10,160 
2660 data 124, 173, 133, 104, 162, 78, 32, 61 
2670daial09, 96, 73, 48, 35,141,126,104 
2680 data 169, 198, 32, 24,104,201, 0,208 
2690dala 3,173,126,104, 24,153, 11, 
2700data109, 134, 104, 153, 13, 0,237,134 



2710datal04,153, 9, 

2720data104, 153, 1, 

2730 data 104, 153, 2, 

2740 data 104, 153, 3, 

2750dala104,153, 4, 

2760data169, 194, 32, 



0,169,214, 32, 24 
0,169,212, 32, 24 
0, 169,218, 32, 24 
0,169.211, 32, 24 
0,138, 9,128,170 
21,104,152,170,160 



2770 data 2, 1 77, 251 , 1 49, 1 6, 200, 1 77, 251 



2780 data 149, 
2790 data 149, 
2800 data 1 49, 
2810 data 213, 
2820 data 208, 
2830 data 5, 



17,169, 0,149, 
6,149, 7,149, 

12, 169,255, 149, 
1,240, 6,169, 

12,134, 78, 32, 

32, 36,104,149, 



0, 149, 5 
15,149, 10 

8,169, 66 
68,213, 1 
36,104,149 

6, 173, 90 



Ml 
BO 
BE 
HG 
KG 
LG 
AL 
GH 
Nl 
FF 
HE 
CK 
EF 
CD 
AK 
GF 
JP 
OD 
KO 
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MM 
HI 
LK 
PM 
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MD 

DC 

IM 

EF 

LC 

IM 

OB 

EE 

PC 

LD 
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LD 

OF 

NP 

GK 

JO 

AM 

IL 

PI 

NB 



87, 133, 88,152 
45, 166, 46, 134 
48,208, 4,197 
87,209,251,208 



2840data104, 96, 32,204,255,173, 95,104 
2850data 32,195,255,173, 94,104, 32,195 
2860dala255, 162,205, 169,205, 32, 21,104 
2870 data 176, 13,160. 3,173, 91,104,145 
2880 data 251, 136, 173, 92, 104, 145,251, 162 
2890data210,169,195, 32, 21,104,176, 7 
2900data160, 3,173, 90,104,145,251,169 
2910 data 124, 133, 253, 169, 0, 133, 254, 169 
2920 data 135, 133,251, 169, 104,133,252,162 
2930data 18,160, 0, 32, 69,104,169, 
2940data133,198, 96,134, 
2950 data 72,160, 0,165, 
2960 data 252. 133,251,228, 
2970 data 47,240, 25, 165, 
2980data 8,165, 88,200,209,251,240, 15 
2990 data 136, 24,165,251,105, 7,144,225 
3000 data 230, 252,208,221, 56,176, 1, 24 
3010data104, 168, 166, 87,165, 88, 96, 32 
3020 data 21,104,169, 0,176, 24,132, 87 
3030data160, 2,177,251,240, 14,200,177 
3040 data 251 , 1 33, 253, 200, 1 77, 251 , 1 33, 254 
3050datal60, 0,177,253,164, 87, 96,165. 
3060 data 198, 240, 35,169, 0,133,198,173 
3070data119, 2, 72,201,134,240, 17,201 
3080 data 1 36, 208, 1 8, 104, 205, 119, 2, 208 
3090 data 234, 72,169, 0,133,198,240,243 
3100data169,255, 141, 90,104,104, 96, 32 
SllOdata 33,104,166, 78,173. 90.104, 48 
3120data 68,181, 7,240, 64,165.253,149 
3130data 8,165,254,149, 9,160, 0,181 
31 40 data 5,145,253,200, 181, 6, 145,253 
3150 data 200, 181, 7,145,253, 56,101,253 
3160 data 133, 253, 169, 0, 101, 254, 133, 254 
3170data181, 12,229,253,133,253,181, 13 
3180 data 229, 254, 133,254,144, 10,201, 
3190data208, 11,165,253,201, 85,176, 
3200data169,253,141, 90,104, 96,164, 
3210 data 185, 8, 0,133,253,185, 9, 
3220data133, 254, 162,253, 32, 63,104,182 
3230 data 1,224, 66,208, 28, 32, 36,104 
3240data 32, 36,104, 32, 36,104,153, 5 
3250data 0, 32, 36,104,153, 6. 0,185 
3260 data 0, 0,240, 94,162, 0,240,127 
3270 data 96,185, 7, 0,224, 65,208, 4 
3280 data 169, 1,208, 
3290 data 182, 2,224, 
3300 data 240, 2, 105, 
3310 data 5, 0,153, 
3320 data 0.121, 6, 
3330 data 68,208, 39,162, 0, 32, 
3340 data 176, 69,160, 3,145,253, 
3350 data 104, 162, 0,161,251, 41, 
3360 data 251 ,162, 1 , 228, 251 , 240, 
3370data 36,104,176. 43,200,145,253,232 
3380 data 208, 241 , 1 82, 3, 1 42, 1 26, 1 04, 1 82 
3390 data 2,224, 76,208, 42,162, 0,160 
3400dala 3, 32, 36,104,176, 17,145,253 
3410 data 200, 232, 236, 126, 104, 208, 242. 205 
3420data126, 104.141,126,104, 16, 24.164 
3430 data 78,150, 7, 96,164. 78,169,254 
3440 data 141, 90,104,153, 0, 0, 96,224 
3450 data 70,208, 20,160, 3,162, 0, 32 
3460 data 36, 104, 176, 227, 145, 253, 200, 232 
3470 data 236, 126, 104, 144,242, 176,216,185 
3480data 4, 0, 141, 127, 104,224, 67,208 
3490dala 28,160, 3,162, 0, 32, 36,104 





5 

78 





0, 224, 
18, 224, 
67, 208, 

0,182, 

5, 0,144, 

0,153, 6, 



88,208, 14 

6,201, 

1, 24,121 

8,169 

0,224 

36, 104 

32, 72 

3,133 

48, 32 
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JN 


3500 data 1 76, 1 97, 1 45, 253, 200. 236, 1 27, 1 04 


CH 


4160data133, 86, 32,244,113, 96,166, 79 




EJ 


3510 data 144, 5,205,126,104,240, 184,232 


P 


4170data165, 80,133, 85,165, 81,133, 86 




LM 


3520 data 208, 235, 202, 208, 1 78, 224, 77, 208 


Al 


4180data 32,244,113, 96,181, 10,133, 82 




JO 


3530 data 179, 160, 3,162, 0, 32, 36,104 


IF 


4190data181, 11,133, 83,181, 1,141, 82 




DP 


3540 data 176, 165, 145,253,200,236, 127, 104 


EG 


4200data114, 32, 27,104,173, 90,104, 48 




LD 


3550data144, 8, 45, 126, 104,205, 126, 104 


DM 


4210data 58, 56,165, 85,229, 82,165, 86 




IM 


3560 data 240, 6, 232, 208, 232, 202, 208, 1 43 


LA 


4220data229, 83,144, 47,173, 82,114,201 




PB 


3570data232, 208, 140, 138, 72,152, 72,164 


Fl 


4230 data 65,240, 26,201, 66.240, 17,201 




CK 


3580 data 78, 56,185, 0, 0,208, 59,185 


GO 


4240 data 68,240, 8, 32,158,113, 32, 54 




LF 


3590data 14, 0,217, 15, 0,144, 10,185 


Ml 


4250 data 104, 240, 16. 32, 51,104,208, 11 




LD 


3600data 16, 0,240, 40, 32, 89,112,176 


HJ 


4260data 32, 48,104,240, 6, 32,158,113 




HB 


3610data 41, 24,185, 12, 0,121, 14, 


K 


4270 data 32, 45,104,162, 82, 32, 63,104 




BF 


3620 data 133, 87,185, 13, 0,105, 0,133 


JL 


4280data 76, 1,114,173, 82,114,201, 66 




AH 


3630 data 88, 32, 75,104,162, 0,161, 87 


BN 


4290 data 240, 7,201, 68,240, 3, 32,158 




BL 


36'K)data133, 87, 32, 75,104,152,170,246 


JB 


4300data113. 96, 0,173, 8,115, 72,173 




NE 


3650data 14, 24,144. 6,169, 1,153, 


CM 


4310datal00,114,141, 8,115, 32, 48,104 




DE 


3660 data 0, 56,104,168,104,170,165, 87 


LN 


4320 data 104, 141, 8,115, 96, 32,208,114 




AH 


3670data 96, 32, 81,104, 32, 78,104,142 


ON 


4330data 32, 75,104,160, 1,177, 82,170 




KM 


3680data104, 104,141,105,104,185, 17, 


AA 


4340 data 136, 177, 82, 32, 75,104, 32, 84 




KG 


3690 data 32, 81.104, 32, 78,104,142,107 


BA 


4350 data 104, 160, 5,185, 87, 0,153,194 




LG 


3700dala104, 141, 108,104,152. 72, 32,204 


AC 


4360data104, 136, 16,247,160, 2, 32, 75 




EK 


3710dala255, 174, 94,104, 32,201,255,160 


H 


4370data104, 177, 82, 32, 75,104,141,200 




OJ 


3720da!a 0,185, 97,104.240, 6, 32,168 


FP 


4380 data 114, 141,202, 114,200, 173,200.114 
4390 data 240, 45.173,205, 114, 133,253,173 




FN 


3730 data 255, 200, 208, 245, 32,174,255, 32 


LF 




. JN 


3740 data 39,104,208, 80,174, 95,104, 32 


CA 


4400data203, 114, 141,201,114, 32,247, 114 




FO 


3750 data 1 98, 255. 1 04, 1 68. 32, 1 65, 255, 1 53 


LI 


4410data 32, 87,104, 32,101,115,206,202 




AA 
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GE 


7420 data 68. 51, 83, 66, 67, 1, 63, 63 


MO 


' 6770 data 82, 1, 63, 63, 63, 1, 83, 69 


GG 


7430 data 63, 1, 63, 63, 63, 1, 63, 63 


JL 


6780 data 73, 51, 65, 68, 67, 1, 63, 63 


01 


7440data 63,115, 83, 66, 67,115, 73, 78 


GO 


6790 data 63, 1, 63, 63, 63, 1, 63, 63 


KH 


7450 data 67, 1, 63, 63, 63, 0, 
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PopToFront 
for the Amiga 



Bryce Nesbitt 
Berkeley, CA 





ll 
i 

in 






Have you ever found a corner of a window you wished to work 
wilh, but had to play some sort of electronic shell game to bring it 
to the front? This utility provides a quick shortcut: simply 
activate any window in any screen by clicking into any part of it, 
hit left Amiga-F and that window will come forward. PopTo- 
Front is written entirely in 68000 for the Amiga. In addition to 
being a useful utility, the code provides a valuable example of 
adding a keyboard handier to the system and includes a version 
of the " exec^support " library, a set of routines normally availa- 
ble only to C programmers. 

J 

Getting it running 

The source code in listing 1 can be typed into any editor and 
assembled with the Metaconico 68000 assembler. (If you are 
lazy, a copy is available on the new Transactor Amiga disk). An 
icon can be created by modifying an existing icon of type " tool 
' using the editor in the system drawer of the workbench disk. 

To activate PopToFront, double-click on its icon from Work- 
bench or type "run PopToFront* from the CLi . To test it out, push 
a window to the back with the back gadget, press and hold the 
Left Amiga key and tap "F" - the window will pop up to the 
front- Once installed, PopToFront stays resident until the Amiga 
is turned off. While it is possible to install several PopToFronts at 
once, no benefit resuUs. 

How it works 

The program consists of three parts; The exec_support routines, 
the startup code and the keyboard handler itself. The startup 
code and exec_support routines exist only to get the handler 
installed. This is done in three parts: 

l)The intuition. library is opened and its address placed in the 
handler code for later use. Note that since the handier uses it, 
the intuit ion. library is never closed. 

2} The startup code allocates some PUBLIC memory to contain 
the handler, PUBLIC is used so that, on a future version of the 
Amiga with a memory- management unit, there is no possibil- 
ity that the handler will ever be swapped out to disk. 

3) Once the handler is in its new home, the startup code adds it 
to the handler list by sending to the input.device an I/O 
Request block of type INDJ^^DDHANDLER, Its purpose thus 
fulfilled and errors checked for, it terminates, leaving the 
handler in place. 



The handler gazes lightly into the meaning of each input.device 
event that passes by. When the correct one is detected it finds 
the pointer to the active Window & Screen from their known 
locations in the IntuitionBase structure, and calls the Intuition 
ScreenToFront( ) and WindowToFront() routines. The Left 
Amiga-F keystroke is then removed from the input stream. 



PopToFront (C)1987 Bryce Nesbitt. Unlimited free non-exclusive licence 

hereby granted to any sentient being lo use or abuse tiiis code in any way 

whatsoever provided that 1h)s and any other copyright notices remain fully 

attached and are reproduced in any simuftaneously dislributed printed maiter 

and wilh tlie exception Ihal, without prior wnlten permission, if not 

be utilized by any entity that has been commonly referred lo as Robert 

W Skyles, Skyles Electric Works, Jim Drew. Regie Warren or any organization 

founded by, controlled, employing or profiling any such entity, its 

offspfing or spouses. 

Author correspondence, bug or stupidity reports may be directed to; 

Bryce Nesbitt 

1712 Marin Ave, 

Berkeley. Ca 94707-2902 

NOLIST 

INCLUDE 'exec/types. r 

INCLUDE 'exec/memory T 

INCLUDE 'exec/interruptsJ' 

INCLUDE 'exec/io.i' 

INCLUDE libraries/dosextens.i' 

INCLUDE 'devices/inpulevenLs.i' 

INCLUDE ^devices/input, i' 

I NC LU D E ' I ntu i I lon/intuitio nbase.i ' 

INCLUDE ' work bench/star tu p. i' 

;INCLUDE'lib/exec_lib.i' ;eliminates link with amiga. lib 

JNCLUDE 'lib/dosjib.i' ; non-standard, and very speedy! 

;INCLUDE 'iibAntuiiioa.libJ' ;See exec/execjib i & fd files 

LIST 



jsriib 



jmphb 



macro 

xref 

jsr 

endm 

macro 

xref 

jmp 

endm 



.LV0\1 
.LV0V1 (a6) 



LV0\1 

.LV0\1[a6) 



CODE 

startup: moveJ 4.a6 

suba.l a1,a1 

jsrIib FindTask 

move. I dO,a5 

moveq #0,dO 

move.] pr^CLJ(a5),d1 

bne.s (romCLI 



;Gel THIS task 



;Set zero for later 

;PoinIer to CLI only structure 
.If not zero, then save a zero. 



If called from Workbench a message wiH be sent. This waits for it, 
and saves its pointer to be returned lo Workbench later. 



lea 



pr_MsgPorl|a5),aO 
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jsrfib WailPorl 

lea pr^MsgPort[a5),aO 

|srlib GeJMsg :Message pointer in 00 

tromCLI moveJ d0,-(a7) ;Save message for later. . . 

*..•.•«.•..•.»•..*...•.•••,•.,,. [A6=ExecBasel[a5-lhistask] 

failcode equr d7 

portsave equr a5 

(C^eqsave equr a4 



moveq 


*25,tailcode 


;Defaul1 fail code 


-Prepare StdO — 






moveq 


#0,dO 


; priority 


bsr 


_CreatePoTtE 


; dO = Porl 


beq 


ExitToDOS 




move. 


dO.portsav© 




, bsr 


^CreateSldfOE 


; al=loRequ9Sl] 


beq 


e^StdlO 




move. 


aUOReqsave 




-Open inputdevice- 


— 




moveq 


#0,dO 


;Unit 


move. 


dO,d1 


; Flags 


lea 


devname(pc),aC 


\ 


;(loRequesiisinA1) 




jsrlib 


OpenOevice 


; do = zero if ok] 


tstJ 


do 




bne 


e_Open 




-Copy Handier — 






moveq 


#ado 


:Any version 


ea 


lntuiName[pc),al 


jsr ib 


Open Library 


; dO = Base 


move. 


clO.JBASE+2 


; modify code 


beq.s 


e_lr>tui 




move.1 


#DownEnd-Slart,dO 


move. 


#MEMF_PUBUC,cll 


jsrljb 


Al ocMem 




move. 


d0,a2 


.location of block 


move. 


dO.al 




tstJ 


do 




beq,s 


e_nomem 





X 






■- 




move.l 


4,a6 






|sr fb 


Forbid 






move.l 


[J6,a1 


;message pointer 




fsr lb 


Rep yfylsg 




NoWVB 


move.l 


d7,dO 


;Sel "fa; at "code 


InturName 


deb 


'intuition, lib rary',0 


devname 


dc.b 


'inpu1.device',0 






cnop 


0,2 


;WORD afign 



lea Staft(pc),aO 

moveq #((DownEnd-Slarf)/4),d1 ;Lenglh in LONGS 
cop^rip move.l (aO) + ,(al) + ;Copy handler to Public Memory 

dbra d1,copylp 

;68010Loopmode! 
; — Prepare iOReq w<th proper addresses — 

lea Handiercode-Start(a2),aO ;otfset + memblock 

move.l aO,fS_DATA[a2) .unused 

move.l aOJS_CODE(a2);wherecodeis 

lea Pop Name- Start(a2),a0 ;optionai ascii name 

move.l aO,LN_NAME(a2) 
; — Send ADDH ANDLER — 

move.i J0Reqsave,a1 

move.w #IND_ADOHANDLER,IO_COMMAND(a1) 

move.i a2,iO_DATA(a1) 

;(IOReqinal) 





jsrib 


DolO 


;dO=(IOReq-aO) 




tSLi 


dO 






bne.s 


e_DolO 


;zero=ok! 




moveq 


#0.d7 


;set return code to zero 


e^nomem 








e_DofO 








ejntui 


move.l 


lOReqsave.al 






jsrlib 


CloseDevice 




e,Open 


move.l 


IOReqsave,a1 






bsr 


_De eteStd OE 




e_SldtO 


move.l 


portsave,a1 






bsr 


.Delete PorlE 





'""•"-•-*• (,•».*-•• (a7) + ^ message d7 = return code 

ExitToDOS moveJ (a7) + ,d6 

beq.s NotWB ;lf saved pointer is zero, exit to CLI. 

I 

; Return the startup message to the parent Woritbcnch tool The forbid 

; is needed so Workbench can't UnLoadSegO the code too early. 



• *•• 



exec_support/CreatePort "• 



port=_CreatePorl(pri) 
dO dO.b 

FUNCTiON Create a nameless message port with a specified priority. 

(exec/ports. I) 

RESULT. TUe port pointer or Z - 1 if an error occurfed, 

REGISTERS: a6 is destroyed uniess _CreatePortE is called, 

in which case a6 must contain ExecBase. 

EXAMPLE: 

moveq #3,d0 ;Set Priority 

jsr _CreatePort 

beq.s noport ;Not enough memory or signals 



;xmf 


_CreatePort 




;xref 


_CreatePortE 




„CrealePor! move! 


4.a6 




^CreatePortE move.i 


a2,-(a7) 




move.b 


dO,-(a7) 




move. 


#MEMF_PUBLIC + MEMF_CLEAR,dl 


moveq 


#MP^SZE,dO 




jsrlib 


Ai ocfvlem 




move. 


d0,a2 




1st. 


dO 




beq.s 


cp_nomemory 




moveq 


#-1 ,dO 




jsrlib 


A ocSigna 


;dO = return 


moveq 


#-i,d1 




cmp. 


dCdl 


;-1 indicates bad signa 


bne.s 


cp_sJgok 




move.l 


a2,a1 




moveq 


#MP_SIZE.dO 




jsrlib 


Free Mem 




cp_nomemory addq, 


#2,a7 


;Unpu^ byte 


moveq 


#0,dO 


;setz=1 


bras 


cp_xit 




cp_sigok move.b 


dO,MP^SGBIT(a3) 


move.b 


#PA_SlGNAL,MP_FLAGS(a2) 


move.b 


#NT,MSGP0RT,LN_TYPE(a2) 


move.b 


(a7) + XN^PR(a2) 


subaJ 


a1,a1 


;a1=0/Find this task 


jsrib 


FindTask 


; dO-thistask] 


move. 


dO,MP,SGTASK(a2) 


ea 


MP_MSGLST{a2],aO ; Point to list header 


NEWL ST aO 


jlnit new list macro 


move. 


a2,dO 




cp_xit move. 


{a7) ^ ,a2 


;cc's NOT affected 


;»'" exec^support/De etePort *** 




;_DeletePort(port) 






: a1 







FUNCTJON: Deletes the port by first setting some 

ti^ds to illegai vaiuesthen caiiing FreeMem. 

RESULT: none 

REGISTERS: a6 is destroyed unless _DeleteStdlOE is caiied, 

in which case a6 must contain ExecBase, 

;xref _DeletePort 
jxref _DeletePoflE 
;_DeietePort move.l 4,a6 
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_DeleIePorlE move. 


ai,-(a7) 


moveq 


#-1,dO 


move.b 


dO.LN TYPE(al) 


move! 


dO,MP_MSGL ST 4- LH_H&AD[a1) 


moveq 


#0,dO .Clear upper 3/4 of dO 


move.b 


MP_S[GBIT(al),dO 


jsrlib 


FreeSigna 


move.l 


(a7)-f-,a1 


moveq 


#MP_SlZE,dO 


jmpfib 


Free Mem 



loSldReq-CrealeSldlO(ioReplyPorl) 

a1 dO 

Furtclion Allocate a JoRequesI block of slar>dard si^e, 
Example: mow. I MyPoil.dO 

jsr „Crea!eSldlO 

beq.s bad news 



ixret 


_CrealeStdlOE 


;xref 


_CreateStd 


;_CrealeStdfO move. 


4,a6 


_CreateSld OEmove. 


dO,-(a7) 


moveq 


# OSTD_SlZE.dO 


move. 


#MEMF_PU8LC + MEMF_aEAR.dl 


|srlib 


A tocMem 


moveJ 


dO.al 


tst.l 


dO 


beq.s 


nomem 


move.b 


#NT ME3SAGE.LN TYPE(al) 


move.l 


(a7) + ,MN_REPLYP0RT(a1) 


nomem rts 




;■" exec_support/DeleteStdJO -*• 


; DeeTeStdiO(loStdReq) 


; a1 





FUNCTfON: Deletes an ioStdReq by setting some 

fields to illegal values then calling FreeMem. 

RESULT: none 

REGISTERS: a6 is destroyed unless _DeleleStd 10 E is called, 

in which case a6 must contair^ ExecBase. 



;xr8f 
,xre! 
;^DeleleSidlO move.l 
_DeleteStd JOE moveq 

move.b 
move.l 
move.* 
moveq 

|mpl(b 



_DeieteStdlO 

_DeleteStdlOE 

4,a6 .Get ExecBase 

#-1 ,dO ;Set fields to illegal value 

dO,LN_TYPE(a1) 

dOJO_DEVICE{al) 

dO,IO_UNIT(a1) 

#IOSTD_SI2E,dO 

FieeMem 



Start 

ints 



cnop 



0,4 



;LONG word atign 



;This is an interrupt structure (exec/interrupts. i) 



del 





del 





deb 





deb 


51 


del 





del 





dc. 






;Compare class AND subclass. $01 00 is a combination Of IECLASS_RAWKEY 

;for ie_aass and IECLASS_NULL for ie_SubCtass. 



hurdfet 



beq.s 
move, I 
bne.s 
rts 

move.l 
andi w 



hurdlel 
(aO),d-T 
MoreE vents 



;Gei |te_NextEvenl{ pointer 

;ff any. . . 

;exJt (with no changes made} 



ie_Code<aO),d1 ,Code & Qualifier. 
#%0000001111111011,d1 



Mask off the bits of the qualifier field that we do not care about. These 

are lEQUALIFER_RELATIVEM0USE,_r^ULTIBR0ADCA3T, .INTERRUPT, 

_CAPSLOCK, _LBUTTON, _RBUTTON and _MBUTTON 

cmpil #$00230040.d1 

;The upper word of Ihts comparison ($0023) is the RAW key code for F' 
; the lower ts JE0UALIFIER_LC0MMAND, 



beq.s 


hurdle2 




KeepLooking move.l 


(aO),dl 


;See above. . 


bne,s 


MoreE vents 


, See above. . . 


rts 




iexit (no changes) 



MoreEvents handles the case where several events may be linked and 
can extract one of them from fhe middle. 



Moce Events move. 


aO,a1 Jemporary for unlinking 


move. 


d1,aO ; Look here next . , 


cmpj.w 


#$OTOO,ie_aass(aO) 


bne.s 


KeepLooking 


move. 


ie_Code(aO),d1 


andi.w 


#%000000nil111011,d1 


cmpi,l 


#$00230040 ,d1 


bne,s 


KeepLooking 



Move this event's ie_NexiEvent pointer to that of the previous event, 
thereby untjnking this one from the chain. 



move.l (aO),(a1) 
move, I d0,'(a7) 
bras hurdles 



;Mcve pointer to NEXT to previous 
jPointerto be passed back 

;Go do it. . . 



The pointer lo the currently active Screen and Windows are available at a 
positive offset from the Intuition base pointer. These wili be brought 
to the front. Note that it may not be proper under the Amiga system lo 
do this in the actual handler. It may be safer to have another task 
lymg around in the background to do the actual work. The description 
of the Intuition WindowToFronl commands indicates that it will not take 
effectuntillheNEXTinputevent, which (of course) will not happen 
until this one exits. 



;succ 
;pred 

;type 

;Priorily [One step higher than Intuition) 

;Name 

;Data 

;Code 



inte 



hurdle2 


move. 


(aO).-|a7) ;Uo ink first event. )ie_NextEvent 


hurdles 


move.l 


a6.-(a7] 


BASE 


move.l 


#0,a6 ;Self-mcdifying'> IntuitionlDase goes here 




move.l 


ib_Acti veSc reen(a6) . dO 




beq.s 


inoscreen 




move. 


dO,aO 




jsrib 


ScreenToFront 


inoscreen 


move. 


lb j^cti ve W i ndo w(a6) , dO 


) 


beq.s 


inowindow 




move J 


dO.aO 




jsrlib 


WindowToFront 


ioowindow 


move. 


(a7) + ,a6 




move. 


(a7) + ,d0 ;Pointertonew, shorter input stream 



When the handler is entered aO will point to a linked list of input 
events of the type defined in the incude file (devices/inputevent.i) 
When dene mangling the input stream it returns a new pointer in dO 
Note: All references to [aO) below refer to ie_NextEvent(aO). The 
offset equates lo zero and was eliminated for efficiency. 



rts 

PopName deb 

cnop 
Down End 

END 



'PopToFront',0 

0,4 ;Pad out to Longword boundary 



Handlercode move.l 
cmpi.w 



aO.dO jSave pointer to start of chain 

#$OiOO,ie_C!ass(aO) 
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TrapSnapper: 

Adding A Trap Handler to Your C Programs 

by Chris Zamara and Nick Sullivan 

That bug in your program could cost you a visit from the Guru, . , 
TrapSnapper helps keep the old geezer at bay! 



[f you've spent any amount of time with the Amiga, you are probably 
not unfamiliar with the following message: "Software Error - Tasl^ 
Held. Click on Cancel !o Reset/Debug", This is an annoying message. If 
you accept the invilalion to "Click on Cancel", you1l reset the machine, 
bringing down not only the task that failed but any others you may 
have going at the time. Vou can ignore the message, if you want 
(providing you have Workbench up or access to an extra CLI), but the 
"Software Error" requester keeps coming relentlessly back every time 
you swap disks or shuffle windows. Furthermore, all visible traces of 
the program that died - like its windows and screens - will still be 
around, getting in your way and using up memory, 

There^s a way to deal with software errors, at leas! in your own 
programs, but before we get into that let's look at what these errors are 
and why the Amiga handles them as il does. 

Tasks, Traps and Exceptions 

As you probably know, the programs that you run on the Amiga are 
treated as separate tasks under Exec, which is the name given to the set 
of operating system routines that are responsible for multitasking, 
device, library and I/O management. Only one task can have control of 
the CPU at any one instant of course; that task is said to be in the 
"running" state. Other tasks will at the same time be either "waiting" 
for their turn at the CPU, or lying dormant ("sleeping") until they are 
awoken by an external event such as a mouse movement, keypress, or 
timer signal. Sleeping tasks require only a tiny proportion of processor 
time to service. If its wake-up event never comes, such a task could 
sleep for ever without perceptibly affecting the operation of the ma- 
chine. 

One difficulty witfi a multitasking system is that any task in the running 
state can crash due to a bug in the program. Since there may be other, 
viable, tasks in the system when this occurs, il is important that they 
should be allowed to continue unhindered if at all possible. This is 
where a Software Error differs from a Guru Meditation Error ~ Software 
Errars are polite bugs that don't step on outside tasks; Gurus are 
barbarian bugs that destroy everyone else along with themselves. 

Software Errors are actually detected by the microprocessor itself, not 
by the operating system. In 68000 jargon, they are called "exceptions", 
for they are conditions that the processor cannot handle by ordinary 
means. An example is the undefined result of a division by zero, using 
one of the 68000 divide instructions DIVS or DIVU. If this operation is 
requested (usually by accident), the 68000 does not know how to 
proceed, and invokes an exception. 

At this stage, several things happen. The 68000 goes into "supervisor'' 
mode, which enables the status register (SR) and several privileged 
opcodes, and switches over to the supervisor stack from the user slack- 
Six bytes of data are pushed onto the supervisor stack: a word 



containing a copy of the Condition Code Register (CCR), and a long 
word containing the value of the program counter, which for most 
exceptions is the address of the instruction following the one that 
caused the exception. (In the case of certain exceptions, other data are 
also pushed, but we'll get to that later.) Finally, control is turned over to 
an except ion -handling routine that is accessed via a table of vectors 
keyed to the "exception number" of the exceptional condition. For 
example, division by zero is exception 5; hence, its exception routine is 
entered tfirough vector number 5 of the table. It is at this point that 
Exec takes over. 

Exec pushes a long- word on the stack corresponding to the exception 
vector number - this is called the trap number, (In Amiga jargon, the 
term "exception" has been appropriated to another purpose, and 
exceptions are known as "traps", from the exception-generating TRAP 
and TRAPV instructions of the 68000 - see the list of trap numbers at 
the end of this article). It then branches through a vector that is specific 
to the task that caused the exception. Unless this vector has been 
changed by the task itself, it points to the default trap handler. Since 
Exec cannot on its own know what actions would be appropriate to take 
to rescue a given task from a given exception, its default handler does 
nothing more than put the task to sleep (permanently), and put up the 
"Software Error" requester to tell the user what is going on and provide 
him or her with the opportunity to reset if desired. Any resources 
(primarily RAM) allocated to the errant task remain allocated, and there 
is no reasonable way of getting them back. 

However, it is not very difficult to create and enable your own Irap- 
handling routine in a program that you write, and there are considera- 
ble advantages to doing so. For one thing, you can provide a graceful 
exit in the event that your program bombs out; more importantly, you 
can hand back your allocated RAM to the system, to be made available 
to other tasks. You can close any windows or screens that the program 
may have opened so that they don't continue to get in the way and use 
up memory. You also avoid the "Software Error" message that will 
otherwise be haunting you until you reset your machine. There is a 
slight risk involved: if the event that caused the trap had trashed your 
handler code before the 68000 intervened, you're off to Guru City; this 
risk is small enough to be acceptable. 

We now have to consider how to write a handler routine that will get 
you through the trap and into your deallocation code, and how to link 
this routine into the system so that it will be invoked when a trap 
occurs. We will outline what we believe to be the simplest approach to 
this problem in the following sections. 

Writing a Trap-Handler 

As described above, the CSOOO's behaviour during a trap involves 
entering supervisor mode, pushing the CCR and the prc^ram counter, 
and jumping into the system handler code through a vector. If this were 
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the Commodore 64 ralher than the Amiga, the obvious approach would 
be to change that vector to point to our own code. In a multitasking 
system, however, we can^t take that kind of liberty; if we did, any task 
that encountered a trap would end up using the handler written for our 
task alone. {Besides, we'd have to change not just one. but ail the 
vectors in the table - one for each kind of trap.) Instead, we have to use 
another vector, one that is specific to our task. This is provided in the 
"Task Control Block", a structure that Exec maintains for each task in 
the system. A task can get a pointer to its task control block (a "Task" 
structure) by calling the Exec function 'TindTask( )" with a parameter 
of zero. Once we have the pointer to our task control block, we can 
change the member called "tc_TrapCode" to point to the code to be 
executed when an exception occurs. 

Changing tc_TrapCode to point to our own routine is very simple. 
Unfortunately, we can't leave it at thai, because our trap code will be 
executed from within a CPU exception, and trap routines, like interrupt 
routines, are limited in their capabilities. For example, trap or interrupt 
code can't call any function that requires multitasking to do its job - this 
includes "printf{ y, commonly used in C programs to print text to the 
console. Another problem is that during an exception, the stack pointer 
(A7) points to the supervisor stack, not our task's private user stack, 
and we don't want to go messing with the supervisor stack (usually). 
Finally, an exception handler must end with an RTE instruction 
(ReTurn from Exception), but we probably want to finish execution of 
our cleanup routine with an 'Exit()\ to remove our process (Amiga- 
DOS's higher-level view of our task) from the systein. 



0) Change the program counter on the slack to point to your *'clean 

up and exit" routine. 
(ii) pull the trap number from the stack 
(iii) perform an RTE instruction to exit the exception handler and 

pass control to the clean up function. 



Your '^clean up and exit" function should free any memory your task 
allocated, close any screens, windows, fonts, libraries, devices, etc, that 
ilopened, and then call "exit( J' (from C) or the equivalent to end and 
kilt the task. 

Our Solution: TVapSnapper 

Lucky for you, all of this has been done for you in the short program 
presented here called 'TrapSnapper". TrapSnapper is set up for C- 
language trap handling, which takes a bit more set-up than doing it in 
assembler, since there is some code that has to be in assembler. 

All you need to do to put a decent trap-handler in your program is: 

1) Put a structure template declaration at the start of your file pr in a 
header file that you "include (see listing) 

2) Declare an instance of that structure at the top of your file and 
iniliahze it with 15 words making up a short machine language 
routine (see listing). 

3) Call the function SetTrap() early in the program's execution to 
initialize the trap handler. 



f 



: 



As you may have guessed, now comes the fun part where you get to 
find the solution to these problems. What we have to do is exit from our 
exception code with an RTE instruction, and then have control passed 
to our special cleanup and exit code. To do that, we have to "mess with 

the system stack", which, as you may have heard before, you usually 
don't want to do. In this case, the saved address of the program counter 
on the slack can be modified so that when the RTE Instruction is 
executed, the CPU will run the program of our choice (the cleanup 
routine) instead of continuing with the nasty code that caused the 
exception In the first place. Before the RTE, we have to pull the trap 
number from the stack, which the system trap handler put there for us. 
This tells us why the CPU generated the exception - the list of possible 
trap numbers appears at the end of this article. 

J 

A small complication is that the exceptions for 'bus error" (trap 
number 2) and "address error" (trap number 3) push an extra S bytes of 
data onto the supervisor stack. One way to handle this In the trap code 
Is by checking the trap number and advancing the stack pointer past 
the 8 bytes for trap numbers less than 4. 

Another issue that should be addressed by a truly general trap handler 
is the fact that other members of the 68000 microprocessor family 
arrange their stacks differently on an exception. Some Amiga users are 
replacing their 68000s with a 6801 or even a 68020 for added speed. 
The Amiga's operating system is designed to work with these CPUs, 
and so should application software, if possible. The trap code could 
check the CPU type (Exec provides a field for this purpose in the 
ExecBase structure) and adjust the slack pointer accordingly. 

So, to recap the above, the following steps are required to have your 
task clean up and leave gracefully when a CPU exception occurs; 

1) Call RndTask( ) to gel a pointer to the task's "Task" structure. 

2) Change the "tc_TrapCode" member of the Task structure to point to 
a short machine language routine that does the following: 



The C code presented here is a simple program that shows how to do 
this, and demonstrates the effectiveness of the trap handler by generat- 
ing two kinds of CPU exceptions that would normally result in a 
Software Error, The program Itself just takes the argument supplied on 

the command line (when the program is invoked from the CLI) and 
converts it to an integer. If the value is 1 , the program forces an address 
error by attempting to read a word (1 6 bits) from an odd address. If the 
value Is not 1 , the prc^ram tries to divide the value Into 1 00 - causing a 
divide by zero exception, of course, if the value entered was zero. 

If this program was compiled without the call to SetTrap( ), it would 
cause a software error if it was run and given zero or one as an 
argument. As it stands, with the TrapSnapper in place, it just prints a 
warning message and the trap number, and exits gracefully, removing 
itself from the system without a trace. 

Here's how the irop code works in C. The initial trap code must be in 
assembler so that we can access the stack pointer A7 directly and 
performanRTEinstructlon.TodothlsinC, the machine code is set up 
as a static array of words and a pointer to this array is put into the Task 
structure's "tc_TrapCode" member. The machine code needs a pointer 
to the clean up code (the CleanUpAndExit( ) function In this example), 
and a place to store the trap number. These long-words are stored 
immediately before the machine code itself through the use of the 
"TrapDala" structure defined at the beginning of the program. Include 
this structure template declaration at the top of your file or in a header 
file that you *inciude- 

The assembly code appears as comments In the C listing for TrapSnap- 
per. The code Is fairly straightforward; it pulls the trap number from the 
stack and stores it in the l^yTrap structure where the C code can get at 
it; adjusts the stack pointer if the trap number was less than 4 to allow 
for bus and address errors; then replaces the program counter on the 
stack with the address of the clean-up routine (which was put in the 
My Trap structure by the SetTrap( ) function). Finally, It ends with an 
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RTE instruction. As you may recall, we mentioned that the exception 
stack frame was CPU-dependent, and a general trap-handler should 
work forthe 68010 and 6S020aswell as the 68000. Well, we're good at 
giving advice, but this trap-handier isn't that general. Sorry, 68010/ 
68020 users, if this routine doesn't work on your machine. 

An instance of a TrapDala structure (MyTrap) is then declared and 
initialized - this is where the machine language is created. The pointer 
to the clean-up code will be put into this structure by the Sel'IVap( ) 
function. 

TheSelTrap( ) function finds the pointer to the task's Task control block, 
then puts a pointer to the trap machine code into the '^tc_TrapCode" 
member, finally, it puts a pointer to the function called CleanUpAn- 
dExtt{ } into the TVapData structure called MyTrap. 

The CleanUpAndExit( ) function is where all of the clean-up code for 
the program goes. In this case, it just prints a message and performs the 
C function exit( ) (The DOS Exit( ) function could be used instead,) ll 
also prints the exception that was encountered by looking at the 
TrapNum member of the MyTrap structure, in a more typical program, 
the CieanUp And Exit function would close any Intuition screens and 
windows that the program had opened, free any memory it had 
allocated {including graphics memory like rasters), and close open 
fonts, devices, and libraries, in short, anything that the program would 
do to clean up after itself before it exits should be done in CleanUpAn- 
dExit( ), 

Whether you fully understand the details of the trap handler or not, you 
can easily add it to your own C or assembler programs. Every program 
should have its own trap handler to spare the user from the plague of 
the Software Error when thin^ go wrong. You can't always guarantee 
that a program is free of bugs, but with TrapSnapper, at least you can 
make them less harmful. 



+ * 



List of Trap Numbers: 

2 * Bus Error 

externally generated signal from Amiga Hardware 

3 - Address Error 

word or longword instruction attempted at odd address 

4 - Illegal Instruction 

a meaningless op-code was encountered 

5 " Division by zero 

Ihe source operand of a DIVS or DIVU instruction was zero 

6 - CHK instruction 

operand of a CHK instruction fell outside of specified bounds 

7 -TRAPV instruction 

overflow (V) set when a TRAPV instruction was executed 

8 - Privilege violation 

a supervisor-state operation was attempted in user state 

9 - Instruction trace 

generated after each instruction while in trace mode 

10 -1010 Emulator 

an op-code starling with the bit-pattern 1010 was encountered 
1 1 - 1 11 1 Emulator 

an op-code starting with the bit-pattern 1 U 1 was encountered 
32 through 47 - TRAP instructions 






TrapSnapper From The Transactor 

This program shows an easy way to iiandle CPU exceptions from 
a C program Just irclude the sirucls beiow, and put your error 
message and/or cleanup code in rhe function CleanUpAndExii( ). 
call SetTrap( ) to imrialize ihe trap handler. You can get the 
tfap number as shown in ttiis example, (c) 1 987 AHA! 



•* 



#inciude <exec/lasks,h> 

struct Task 'Mylask, -FindTaskO; 

struct TrapData } 
long TrapNum; 

inl[-CodeK); 
USHORTMLcode[t3); 

} 



/* trap number will be stored here •/ 

h pointer to user trap handler function •/ 
/■ trap-handler machine code goes here -/ 



struct TrapData MyTr^ 
0, 

NULL, /• clean-up routine address - will be tilled in later -/ 

Ox201F, y. MOVE.L (A7) + ,[>D */ 

0x41 FA, 0xFFF4, /.LEA — $A,AO *t 

0x2080, /. MOVE.L DO,(AO) W 

OxBOBC, 0x0000, 0x0003, /-CMP.L #3,00 ./ 

0x6202, /. BHI.S -+4 *J 

0x504F, /. AODQ W #8.A7 ./ 

0x2F7A, 0xFFE8, OX0002. /. MOVE.LerrtL[nc(PC),2{A7) */ 

0x4E73 /- RTE ./ 

!; 

f t commented assembler code is beJow: 



• errnum: DSL 1 

• errfunc. DSl 1 



' start: 



■ 

■ other: 



MOVE.L(A7) + ,D0 

LEA errnum, AO 
MOVE.LDO,{A0) 
CMP.L #3,D0 
BHI other 
ADtXJ #S,A7 



: below code will put trap number here 
;poinler to clean-up routine goes here 
;pull trap number off stack 
iforce PC-relative addr mode 
;pul trap # in errnum for C 
:check lor bus or address error 
;other traps (4 or greater) 



W 



;skip extra info on stack 
MOVE.L errfunc(PC),2[A7) ;potni PC on stack to user routine 
RTE iexit from trap-handler 



extern int Clean LlpAndExil( ); /- your cJean-up Junction •/ 

main(argc, argv) 
int argc, 
char -argv[ ]; 

I 
intnl.n^; 

in[i2, -11 = 1; 

SetTrapf ), /t set up trap handler •/ 

if [argc i = 2) 

) 

printfC Usage: %s <n>\n " , argv|0]); 
exit (0); 

{ 

n1 - aloi{argv[1| • ■ 

h If arg = 1 let's get an address error by referencing an odd address ■/ 
if(n1 ==1) 

i2 - -11: 

It if n1 is zero, we'll get a divide by zero trap *f 
n2 = 100/n1; 

printft ■ 100 divided by %d equals %d\n " , n1 . n2J, 

SetTrapO 

/» ir^ittalize trap handler 'f 

) 

MyTask = Fincnask(OL); 

MyTask->tc^TrapCode = (APTR)MyTrap MLcode, 

MyTrap. Code - QeanUpAndExit; 
{ 

CleanUpAndExitO 

/- v^rn of error, !ree memory, close up everything, and exit •/ 

printf(" Hey - watctt it! If I weren^t a sophistrcated\n '); 

printf("TranEaclor program, f would have bombed out!\n'); 

pnntlCCThe problem was, I got atrap number %ld)\n", MyTrap TrapNum); 
exilfO); 

f 
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Amiga Dispatches 

by Tim Grantham, Toronto, Ontario 



I'm sure that by now you have all pored over the numerous 
articles describing the new Amiga 2000. I'm pleased to see that it 
is pretty much as I described in this column several months ago. 
with the exception of the lesser amount of RAM. 1 hope to have 
an evaluation unit soon, and then I will file my own report. The 
Amiga 500 (at $649 US) and the 2000 (at £1499 US) are 
essentially the same machine as the 1 000, with the same OS, the 
same chips, and the same software. Only the packaging is 
fundamentally different. 

What 1 do find particularly intriguing about the 2000 are slots 
that apparently will enable one to upgrade the machine to not 
only faster CPUs like the 68020 and 68881, but also to newer 
versions of the custom graphics chips. The latter, as [ have 
mentioned in previous columns, will provide access to larger 
amounts of video RAM and higher resolutions. 

Not much is known about the 500. except that it is intended to 
provide competition for the Atari 1 040 and is packaged in a very 
similar style, with a buiit-in disk drive, non-detachable key- 
board and, for another $150 US, I meg- of RAM and a reaMime 
clock/calendar. 

Where does this leave us 1000 owners? Commodore has said 
that they will continue to make the 1000 as long as there is a 
demand for it. Some fear this means we shall never see another 
However, Commodore has been saying the same thing about 
the 64 for several years now, and that machine is still with us. 

Software will not be a problem, for reasons mentioned above. 



The only area of concern is hardware. Will third-party periph- 
eral providers abandon the lOOO's 86-pin expansion bus for the 
Zorro slots of the 2000? Certainly, Zorro cards are easier to 
design than the external units needed by the 1000. No housing 
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is required, no power supply is required, no worry about FCC 
and CSA RFI standards is necessary. But there are a couple of 
factors in the lOOO^s favour. 

First, Zorro card makers will be competing with Commodore; 
makers of expansion units for the 1000 will not. Second, the 500 
wi!l have almost the same Se-pin expansion slot as the 1000: 
the differences would involve only minor changes to 1000 
expansion products - an incentive for manufacturers to main- 
tain their 1000 product lines. Finally, there are still 150,000 
lOOO's out there - not a bad market. I think that, after some 
shake-out, we will see plenty of products for the 1000 still 
available. Furthermore, I believe we will see expansion boxes 
for both the 500 and 1000 that will let one plug in Zorro cards, 
and perhaps even the so-called Bridge and PC cards, designed 
for the 2000, 

1 also believe there will be continuing demand for the 1000, 
though obviously not as much as there has been. The detach- 
able keyboard and internal power supply are better than their 
counterparts on the 500. And peripherals like the Genlock and 
Digiview are currently only available for the 1000. Eventually 
the 1000 will fade out of the picture, but certainly not in the 
same fashion as such orphans as the PC Jr. or the 128K 
Macintosh. 

Software News 

Dropping around at an Amiga dealer's store, I was surprised 
again by the quantity and quality of the software available for the 
Amiga, But even more will come along as the 500 opens up the 
home market, and the 2000 finds a niche for itself in the business 
and scientific world. 

At the Club'Amiga meeting here in Toronto, John Skeel, Vice- 
President of marketing for Aegis Development, demoed their 
latest products Sonix, Draw Plus, Aegis Animator II, and 
DigaJ. This last one is a terminal program using a proprietary 
protocol that permits hie transfers between two Amigas {each 
running Diga!) while remaining in CHAT mode. 

He also showed an extraordinary video tape of a 3D animated 
sequence, every frame of which had been created on a 512K 
Amiga 1000 using their new software. The program can draw a 
frame in less than ten seconds, depending on the complexity of 
the image. It can also, using an optional frame controller, record 
each image on a VCR, The program uses overscan so that the 
picture is not confined within the borders of the usual Amiga 
screen, and can use fractal geometry to generate landscapes. 
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The artist describes the sequence in a text file. She can then test 
the sequence in a preview animation mode that uses wire- frame 
models- Once she is happy with the sequence, the solid three- 
dimensional, 1 6-colour output is generated automatically. Skeel 
said that the demo tape, which lasted about a minute, took 8 
hours to generate from previously completed scripts. By my 
estimation, that means that Amiga generated and recorded at 
least 1800 frames in 8 fiours, I wonder how many it could have 
done with the 68020/68881 combination installed? The pro- 
gram is supposed to be available as you read this, for a cost of 
about $300 US. 



* Deluxe faint II from Electronic Arts is a significant upgrade to 
the original DPamt. Besides being able to handle multiple 
resolutions, it adds a unique ability to rotate a brush through 
three dimensions. . . According to DJJAMES, a sysop on People- 
Link's Amiga Zone, the OpenUbraryQ function in 1.1 didn't 
care what library version number you passed to it. Another 
version of OpenLibraryQ was created in 1 .2 that fixed that bug 
and it's called NewOpenLibraryQ. , - Speaking of 1 2, mutual 
exclusion of gadgets is still not implemented. R.J. Mical suggests 
a roll-your-own approach that entails removing the gadgets 
involved, making the state changes in the gadget structures, and 
then re-attaching the gadgets, using the 1.2 functions Remov- 
eGListO, AddGListO and RefreshGListQ. . - Larry Phillips of 
Vancouver, mentioned two issues ago as a sysop on The Source, 
is now a sysop on CompuServe's Amigaforum. He's a valuable 
addition to a good team. . . 



1 downloaded some terrific Public Domain software and Share- 
ware recently: Blitzfonts. by a gentleman named Hayes C. 
Haugen, speeds up screen text output on the Amiga 2-3 times. I 
have used i! with Uedit and Scribble! to great effect. It's written 
entirely in ML and uses up less than 4K of memory once 
installed. Mr. Haugen is asking only a $10 donation. If you've got 
it, send it. Another fine program being offered as Shareware is 
Dave Wecker's ray-tracing software. This program can generate 
stunning 320 by 400 HAM graphics. A PD assembler and C 
compiler have also arrived on the scene. This is good news but I 
anticipate a problem here. Both of these require the Amiga 
include files to work. Those, however, are copyrighted by Com- 
modore and licensed to people like Lattice, Manx and Meta- 
comco. Wouldn't it be nice of Commodore to offer these includes 
to the general public, say for a nominal copying fee? Are you 
listening. Commodore? 

peaking of languages, Manx has released version 3.4 of the 
Aztec C compiler by Jim Goodnow. In addition to further 
optimization of the compiler, it now fully supports scatter- 
loading. 1.2 and the 68020/68881 processors. The prices have 
also been significantly lowered: $199 for the personal version, 
$299 for the developer s version and $399 for the commercial 
version. TDl has also released a new version of their Modula-2 
compiler, version 3.00. . , Ben Blish's SoftCircuits company has 
lowered the price of their PCLO {Printed Circuit Board Layout) 
software to $499. A greatly enhanced version called PCLO 

Plusisnowsellingfor $1024, All owners of the original PCLO 
will have their copies updated to PCLO Plus for a nominal 
charge, . , 



Charlie Heath of BIX and MicroSmith? is heading up a group of 
volunteers who want to replace ail the BCPL-encoded compo- 
nents of AmlgaDOS with equivalents written in assembly lan- 
guage. A number of the commands have already been done. 
Meanwhile, rumour has it that Tim King of Metacomco, the 
original programmer of AmlgaDOS, is working on optimizations 
that will permit the efficient use of hard disk drives, and the 
folks at the Software Distillery are also working on improving 
AmlgaDOS. As 1 understand it, these involve no change in 
Kickstart, only in Workbench. . . T^X, the sophisticated type- 
setting system developed by Donald Knuth of Stanford Univer- 
sity, is available for the Amiga from N^ Computer Consultants, 
P.O. Box 2736, College Station. TX 77841 . , . 

Finally, a word about Transformer. Those of us who use it 
know by now that it will not work under 1 .2. It apparently uses a 
bug in 1 , 1 to load that was fixed in 1 .2. Commodore now has in 
their hands a \2 version of Transformer and will hopefully 
upgrade us Transformer 1 . \ owners ASAP. Do you remember 
Commodore's promises to provide a hardware Accelerator that 
would speed up operation of the Transformer to something 
approaching full speed? Well, apparently somebody in market- 
ing had the bright idea that making a full-sized clone one stuck 
on the side would make them a lot more money. Thus the 
SideCar was born, and the Accelerator accelerated to an early 
grave. Meanwhile. Simile, the company that wrote the Trans- 
former, was told to take a hike. CBM will not allow them, 
apparently, to sell a version of the software that would offer 
colour and graphics. This is one q\ the few Amiga products that 
Commodore has reneged on (though some were a long time 
coming) and we and Simile certainly deserve belter treatment. 

Hardware News 

There are two hardware products for the Amiga worthy of 
special mention; the Insider internal 1 meg. RAM board; and 
Byte- by- Byte's PAL Jr. expansion box. 

The Insider mounts inside the Amiga and attaches directly to the 
68000 bus. In addition, it is configured to He at the SCOOOOOOO 
address reserved under 1.2. It is true FAST RAM with no wait 
states, unlike some other internally- mounted RAM expansions 
that piggyback on to the video memory chips. Because it lies in 
the reserved area of memory, a full 8 megabytes can still be 
added on the expansion bus, bringing the total possible amount 
of memory on the Amiga to 9.5 Megabytes. The unit is one of the 
few memory boards that will work with the Sidecar. 

Some have expressed concern thai it may prevent other units on 
the expansion bus from working because the Amiga bus is rated 
only for one 'F' load, which would be absorbed by the Insider, 
However, the manufacturers say that they have buffered ail 
except the data lines, Larry Phillips has one installed in his 
machine and says he has had no trouble driving an external 
memory board or the Sidecar. He feels there is probably enough 
leeway in the specs to allow units on the expansion bus to 
coexist with the Insider. 1 must admit, it would be very nice to 
have a T5 meg. Amiga with a battery-backed clock/ calendar 
that doesn't have all that junk hanging off the side. It is available 
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from Michigan Software, 43345 Grand River. NOVI, Ml 48050 at training wheels on a Harley-Davidson, Ail right, so i exaggerate 
a cost of $349.95, The telephone number is 313-348-4477. a little - more like a cow-calcher on Porsche. 



8yte-by-Byte have announced that ihey have completely rede-^ 
signed their PAL Jr, expansion box. It now sits on top of the 
Amiga 1000, is a little under three inches high, and provides a 
20 meg. ST506 hard disk with a DMA controller, a board with 1 
meg, of RAM, and an empty siot for another Zorro board. It 
provides its own power with a 90-watt supply on board. Buyers 
can upgrade the controller board to include a SCSI controller as 
well- The supplied RAM, like the insider, resides at the 
SCOOOOOOO address, A clock is also standard equipment. The 
unit costs $ 1 4^5 US and can only be ordered directly from Byte- 
by-Byte. 

As a little postscript, it is interesting to note that the custom chip 
each manufacturer inserts into their expansion product to en- 
able it to au toco n figure, also contains a product code and a 
manufacturer's ID*. Thus, software can check to see exactly 
what hardware is on the bus, and adapt accordingly, without the 
user having to go through lengthy installation procedures. 

Report from a Sunday programmer 

I'd like to hnish up this edition of Amiga Dispatches with a 
recounting of my Amiga programming efforts (so you can stop 
here if it's only product news you want to read about). Not that 
I'm any kind of programming avatar - quite the opposite. But my 
experiences may provide insight for some and amusement for 
others. 

In case you don^t know, 1 ascended from the lowly depths of the 
65xx world to the lofty heights of the Amiga. I only just recently, 
and reluctantly, sold my C64 system. 1 still view the 64 as a very 
fine computer: 1 don't think there is a better machine for anyone 
who wants to learn the basics. It helped bring about a revolution 
in the way the average citizen perceived computers: not as 
modern metal Minotaurs tended by priests in white shirts and 
black lies but rather as extensions of themselves - brain trans- 
portation, if you'll permit me. 

But back to the Amiga. 

It^s been a year now and 1 still get a gee-whiz kick out of it. But i 
wasn't content to be only a user I wanted to see what / could 
make it do. I felt reasonably confident. After all, 1 could find my 
way around the 64 in BASIC and 6510 machine language. The 
Amiga would simply be the next step up the ladder Fools rush 
in, . . 

I did not even try to learn AmigaBASlC. While it was apparent 
that it was a much more powerful BASIC than any on other CBM 
machines, its editor was clumsy - a shame, considering that the 
Amiga was supposed to be a friendly machine. Furthermore, if 
you wanted to multitask with other AmigaBASlC programs, you 
had to run other copies of AmigaBASlC. Finally, while it was 
possible to call the system routines from AmigaBASlC, it was 
hardly the ideal way of using them. It was clear that this 
implementation of BASIC had been stuck onto the Amiga like 



The reality was that almost all software development was being 
done in C, a language I had only recently heard of, and the rest 
in 680xx machine language. Most of the operating system had 
been written in C and the documentation from Commodore 
assumed a C environment. I felt that it was perhaps propitious 
that the Amiga was making me seriously consider learning this 
language: C is supposed to be the language of the eighties. What 
was true of the Amiga was increasingly true for microcomputers 
in general: C provided a language that significantly reduced 
development time while providing most of the speed of machine 
language. So I obtained a copy of Abacus' Super-C for the 64, 
and the well-known C Primer Fius, published by The Waite 
Group, and began. 

It wasn't easy. Forget the articles that try to use BASIC as a 
springboard to C - they are simply too different. First and 
foremost. C is a structured language. This isn't just another 
buzzword. If you have come from a linear programming envi- 
ronment, like CBM BASfC and ML, you'll run smack into a 
completely different way of thinking, i think 1 must have added 
new cortical folds to my brain, trying to twist my linear thought 
processes around to accommodate the modularity of C, i can't 
tell you how often 1 longed to use a goto, especially in loops, 
(goto is implemented in C. but using it is considered slumming 
by purists. 1 decided that, just for the mental discipline. 1 would 
also avoid using it.) 

Furthermore, C is emphatically not a friendly language. It was 
designed by programmers for programmers. As such, it is a mid- 
level language that combines the sophisticated data structure 
handling capabilities and modularity of a high level language 
with the efficiency and flexibility of assembly language. If you 
have some experience with assembly language, you will indeed 
feel more at home. But you had better comment your source 
code heavily if you want anybody, including yourself, to under- 
stand what youVe written six months down the road. 

Is it worth the trouble? Absolutely. Once youVe wrenched your 
brain around to C's way of thinking, you'll feel right at home 

programming the Amiga. C was written in conjunction with, and 
as an aid to, the development of Unix. The Amiga OS has many 
things in common with Unix - multitasking, message ports, 
system structures - and C is becoming the lingua franca of 
multitasking operating systems. Not to mention the fact that 
nearly all the examples given in the official Amiga docs are in C, 

Assembly language is not out of the question on the Amiga. 
6S0xx ML is much more powerful and orthogonal than 65xx 
ML, but they both have linearly addressed memory and similar 
opcodes. The jump from 65xx to 680xx will not leave your head 
spinning. And it has the advantage of producing smaller, tighter 
code than C. Indeed, the Manx Aztec C compiler for the Amiga 
actually produces assembly language on its first pass, which it 
then assembles on the second pass. You can examine the 
assembly language object code if you wish. If you wish to learn 
680xx machine language, I can recommend the 6SOO0. 68010, 
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68020 Primer by San Kelly-Bootle and Bob Fowler, also pub- 
lished by The Waite Group. 

There are many other languages for the Amiga but few provide 
the tight interface to the Amiga libraries that C does. 

Learning C, though, had only brought me half way. There was 
sfill the multitasking, multiprocessing Amiga OS to learn. 

Bear with me a moment while I conjure up the following 
scenario: Vou sit behind a desk in a room. In that room are a 
giant screen, a pair of speakers, one of those pneumatic systems 
that lets ^ou send and receive office memos in little cylinders, 
and a locked door with a mail slot. (I leave it to you to add 
whatever companions or libations you need to feel at home.) The 
screen is black, containing only the words 'Guru Meditation^ in 
red letters. No sound issues from the speakers. 

All around you, in the floors above and below, and outside that 
locked door, you can sense an enormous amount of activity. 
Who knows how many other rooms there are. with other 
individuals behind other desks, busily receiving, processing and 
sending memos and forms. And why? 

Your head snaps up, for the image on the screen has changed. 
Now it is filled with a familiar picture of words dropping down 
from a bar at the top of the screen, and one of the words is 
highlighted. Suddenly, with a hollow THWONK!, a cylinder pops 
out of the incoming message tube. You open it. Inside is a piece 
of paper, a small form actually, labelled IntuiMessage' at the top, 
and someone, or something, has filled in the various blanks 
below. One jumps out at you: in the blank labelled 'Class', the 
word "MENUPICK' is primed. 

Now you know what it is you must do. You make a copy of the 
IntuiMessage for your records, initial it, mark 'Return to Sender' 
on it, and stick it into the outgoing message tube. With a muffled 
THUPP!, it disappears. Quickly, you fill out a directive labelled 
AutoRequest\ You know that, as long as you supply every 
required detail, and submit every required form, this hyper- 
efficient bureaucracy will follow your instructions to the letter. 

You hurry over to the door and pop the directive through the 
siot. Even as you turn away, another image appears on the 
screen, a rectangle containing the message "Are you sure?' and 
two smaller rectangles that say 'OK' and 'Cancel', Then the 
screen goes black once more, 'Guru Meditation' appears in red 
letters, and you know that soon another cylinder will pop, 
THWONKl, out of the incoming message tube. 

As you head back to your desk, to spend your allotted time filling 
out forms, receiving forms, processing messages, and sending 
directives, you wonder who or what is outside that locked door, 
f^r you sense that, if you knew how, you might be able to fill your 
room with ever more complex images and sounds, or control the 
images and sounds in someone else's room. 

This scenario, fanciful though it is, is very much like what 
programming in the Amiga's multitasking environment is like. 



Even some of the terminology is the same: one 'submits' an 
initialized structure (completed form); one 'processes' messages 
received in the M^Port (message tubes) from MsgPorts in other 
tasks (rooms). Only the Amiga OS is infinitely more efficient and 
integrated than the most highly automated, networked and inte- 
grated office system could ever be. 

Working in that single room is analogous to a programmer who 
simply wants to use the interface that Intuition provides for his or 
her program. It's not necessary to know what sends those 
messages, for example, only what response is required to fulfill 
the programmer's objectives. If the programmer needs to know or 
control what is going on in other rooms - tasks, 1 mean - they 
must open that locked door and go exploring, 

A program that lets you do just that is the Structure Browser 
program written by Chris Zamara and Nick Sullivan and pre- 
sented in last month's Transactor. Using SB is almost like playing 
one of those text adventures where you explore the rooms of a 
huge castle, and find out where all the secret tunnels are that link 
one room with another. Only it's better than that because the 
Amiga's display, in the case of the Intuition structures, provides a 
mapof the journey. 

Using SB proved to be a major watershed in my understanding of 
the Amiga OS. 1 think it would be the same for anyone wishing to 
gain an intuitive grasp of how the various system structures (there 
are nearly 1 00 of them) are connected to each other, and how the 
display reflects their contents. The current version of SB supports 
only the Intuition structures, 1 hope others will add the other 
libraries. 

Other very helpful utilities for programming on the Amiga include 
egad, the PD gadget editor produced by John Draper et al; Uedit, 
a very tine programmable Shareware text editor written by Rick 
Stiles; and Charlie Heath's getfile file requester. I have used ail of 
these in my first major effort. Keep vl,0, which hopefully will be 
available on the first Transactor Amigd disk. Keep is a program 
that is descended from excise, a program written in BASIC and 
f^L for the 64 and the PET 8032 by Nick Sullivan. It lets one 
extract selected messages from a file of messages downloaded 
from one of a number of information services - simple but useful. 

Some of the books I found useful in my programmer's progress 
were the Amiga Programmer's Guide from Compute! Publica- 
tions; the Amiga Programmers Handbook by Eugene Mortimer 
published by Sybex; and of course, the best of them all, the Amiga 
Intuition Reference Manual by RJ. Mical and Susan Deyl, pub- 
lished by Addison -Wesley. The Sybex book is noteworthy be- 
cause, to my knowledge, it and the new edition of Bantam Books 
AmigaDOS Reference Guide are the only books that provide 
information about 1.2. 

Before 1 bid you adieu, let me remind you that any comments or 
questions at>out this column, can be sent to me on Peoptelink 
(AMTAG) or on CompuServe (71426,1626). I can't promise I'll 
reply but 1 will certainly do my best, 

exit(l); - 
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Submitting NEWS BRK Press Releases 

If you have a press release you would like lo submit for The NEWS BRK column, 
make sure thai the computer or device (or which the product is intended is 
prominently noted. We receive hundreds of press releases for each issue, and 
ones whose intended readership is not clear must unfortunately go straight to the 
trash bin. It should also be mentioned here that we only print product releases 
which are in some way applicable to Commodore equipment. News of events 
such as computer shows should be received at least 6 months in advance, 

TransEfctor News 

New Address and Phone Number 

Please note that The Transactor now has a new address: 

The Transactor 
501 Alden Road 
PO Box 3250 
Markham Industrial Park 
Markham. Ontario, Canada 
L3R6G6 (416)737-2786 

The address is actually just a box at our local post office. When construction is 
complete at our new office, we'll publish the address there, hopefully by next 
issue. We also have a new Buffalo address that should be on the back of our mail 
order card, but wasn't available at the time of this writing. 

Subscription Intersection Set 

On closer inspection we have found the overlap of TPUG members and 
Transactor subscribers to be about 1 000, not 400 as previously reported. During 
our first comparison, many went undetected due to differences between the two 
mail list databases. It seems that a computer just can't tell if two names are the 
same when a middle initial is included in one but not the other. To compensate, a 
program was written that bordered on artificial intelligence. However, it^s still 
possible thai some matches were missed, especially if the postal/zip code was 
different in the two databases. So, if youVe a TPUG member AMD a Transactor 
subscriber, and you're still getting two issues, please let us know and the two w^ll 
be combined. 

The matches that were found, plus any that we've been informed of by mail, 
have all been dealt with as ol this issue. Any Transactor subscribers that weire 
also TPUG members have had their TPUG memberships extended by the 
number of Issues remaining in their Transactor subscriptions. If you fall into this 

'intersection set", your mailing label should show this extension. 

Since you'll now only be receiving magazines from TPUG, your renewal notice 
will also come from TPUG. Naturally you should renew lo one OR the other. 
Renewing to both will mean you'll start getting two magazines all over again, 
and after we get this situation sorted out, we'd like it to be eliminated for good. 
The fact is, we could make a career outa this. So, since all the existing 
overlapping memberships/subscriptions have been combined and extended, 
any and all new ones will get two magazines; one with an insert from TPUG, and 
another without an insert from us. This applies mainly to those who are 
currently Transactor subscribers and are not TPUG members, but considering 
becoming one. 

If you're renewing a subscription, or subscribing for the first time, youll have the 
choice of getting the regular magazine (no TPUG insert] or becoming/ remaining 
a TPUG member, and getting rhe 8-page TPUG insert as part of your Transactor. 
If you want just the Transactor, use the insert card in the magazine to subscribe/ 
renew. I( you want the insert as well, send your TPUG renewal form to TPUG 



(they'll send it lo you before your current membership expires) or, if you're not 
currently a member, contact them about becoming one. Please do NOT use the 
postage paid Transactor subscription card for TPUG memberships, TPUG and 
Transactor are at seperate addresses, and applying to one via the other will delay 
processing unecessarily. 

The current cost of a TPUG associate' membership is $35.00 (US/C). For that 
you get the insert plus access toTPUG's large public domain disk library, neither 
of which comes with the $1 5.00 (US/C) subscription to the Transactor 

Disk &ibscription Notes 

Many of those who fall into the intersection set described above also have 
Transactor Disk subscriptions. These will still be handled by us, and when they 
expire, a notice will be sent. Some have pointed out that, "we would find it mush 
easier to renew to both if (tiey were to both expire at the same time. Now that our 
memberships/subscriptions have been combined, the magazines end at one 
issue and the disks at another". Good poinL What we surest is this: when you 
renew your disk subscription, add $7.50 (US/C) for every disk necessary lo 
make your disk and magazine subscriptions concurrent. 

Free Transactor T*s wUh Mag + Disk Subscription 

Subscribe or renew to a combination magazine and disk subscription, and well 
send you a free Transactor T-Shirt! You save 29% off the magazines, 16% off the 
disks, and get aTransactorT worth S13.95 ($17.95 if you order the jumbo size!) 
The T-Shirts come in 5 sizes (red only), with a 3-color screen featuring Duke, our 
mascot, dressed in a snappy while tux, standing behind the Transactor logo done 
in yellow with black "3-D" borders. The screen was done using a special "super- 
Opaquing" process that cost us quite a bit more than those decafs that crack and 
fade. Mine has been through the wash at least 25 limes now, and it still shows 
virtually no sign of wear due to "washing machine punishment". 

Subscril>er Mail Orders 

II you're a Transactor subscriber, and you're using the postage paid order card to 
purchase items other than a subscription, please write your subscriber number 
on the card. This way your order is recorded along with your subscription 
information in our database, 

Customs/Duty on Hardware Products 

Shipping haniware to the US from Canada often incurs customs and/or duty 
charges al the destination. Some of our suppliers are in the IS and for LIS orders 
processed by us, we have the items shipped direct without bringing them into 
Canada. However, other hardware items manufactured in Canada and sent to US 
destinations may arrive with a surcliarge payable. The Transactor cannot be 
responsible for these charges. This may also add to delivery delays. If you've 
placed an order for a hardware item and it seems to be taking a rather long time 
to arrive, it may be sitting at your local customs office, in which case a notice is 
probably on its way for you to come pick it up. 

Transactor Mail Order 

The following details are for products listed on the mail order card. If you have a 
particular question about an item that isn't answered here, please write or call. 
We'll get back to you and most likely incorporate the answer into future editions 
of these descriptions so that others might benefit from your enquiry. 

■ Moving Pictures - the C-64 Animation System, $29.95 (US/C) 
This package is a fast, smooth, full-screen animator for the Commodore 6A, 
written by AHA! (Acme Heuristic Applications!). With Moving Pictures you use 
your favourite graphics tool to draw the frames ol your movie, then show it at full 
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animation speed with a single command. Movie scripts' writlen in BASIC can 
use Ehe Moving Pictures command set lo provide complete control of animated 
creations, BASIC is still available for editing scripts or executing programs even 
while a movie is being displayed. Animation sequences can easily be added to 
BASIC programs. Moving Pictures features include: split screen operation - part 
graphics, part text - even while a movie is running; repeat, stop at any frame, 
change position and colours, vary display speedy etc; hold several movies in 
memory and switch instantly from one movie to another; instant, on-line help 
available at the touch of a key; no copy prelection used on disk, 

■ Volksmodem 12, w/cable, and CIS Intro-Pack, S329,0G(Cdn), S199(US) 
NotonlydoyougettheVolksmodem 12 [DOC approved], but you get the cable 
at no extra charge (the C64 cable goes directly onto the User Port, and Ehe RS232 
cable is for any standard RS232 DB-2S female connector) Plus you'll receive a 
free CompuServe Intfo-Pak which contains a User ID, a Password, and SI 5.00 of 
connect time] The Volksmodem 1 2 will work at 300 or 1200 baud^ and is "Hayes 
compatible' so it will work with virtually any terminal software because the 
commands are controlled by you from the keyboard - just type "AT" (for 
ATtention) and follow with any o( several easy-to- re member commands - no 
special POKing or elaborate dialing routines necessary! (IVe been using a Hayes 
lor almost 3 years, and my Volks for over a year ■ I love them both! - KJH) It 
comes with ^t this) a 5 year manufacturer's warranty on parts and labour! The 
modem is shipped insured via UPS at no extra charge. 

■ Intelligent I/O Interface Cards 

■ BHIOO I/O interlace Card w/documemalion $129 (US), S199(Cdn) 

■ BHI 00-AD8 8-Channel A to D Conversion Module $45 (US), $69 (Cdn) 

■ BHl 00 Beginners Course S 159 (US), $239 {Cdn) 

■ BHIOO-S Security System $25 (US). $39 (Cdn) 

These products from Intelligent I/O will make great Christmas gifts! And ii 
youVe been wondering what to do with that VIC 20 that doesn't get much 
attention anymore, they're perfect! If you've ever wanted to start doing some real 
world interfacing, real easy, and inexpensi\'ely, then these items are ideal. The 
boards they sent us for evaluation are currently watching for floods in my 
basement. Too bad I didn't think oi it before the flood - it only took about an hour 
using spare parts I had lying anjund - no resistors, no capacitors, just two strips 
of metal, a piece of styrofoam, a brick, and about 20 feet of wire that was also 
collecting dust. Once 1 get time, I intend to make it do some more surveillance 
since only one channel is currently in use. And the program to do it? A quick and 
messy 5 lines! Since the boards are memory mapped through the cartridge port, 
a PEEK is all you needl The 22 page manual is clear and concise. All products 
come with a 90 day manufacturer's warranty. Shipped insured via UPS at no 
extra charge. 

■ Transactor T-Shirts, $13.95 and $17.95 (US/C) 

As mentioned earlier^ they come in Small, Medium, Large, Extra Urge, and 
Jumbo. They're 13.95 each, $17.95 for the Jumbo, The Jumbo makes a good 
night'Shirt /beach-top - it's BIG Tm 6 foot tall, and weigh in at a slim ISO pounds 
- the Small (its me hght, but that's how 1 like Ihem. If you don't, we suggest you 
order Ihem 1 size over what you usually buy. The design is screened using a 
"super-opaquing" process so they wear much longer than your ordinary screens 
and iron-ons- 

■ The Transactor Book of Bits and Pieces *1 , $1 4.95 (US/C) 

Not counting the Table of Contents, the Index, and title pages, it's 246 pages of 
Bits and Pieces from issues of The Transactor, Volumes 4 through 6. Even if you 
have all those issues, it makes a handy reference - no more flipping through 
mi^azines for that one bit that you just know is somewhere. . . Also, each item is 
forward /reverse referenced Occassionally the items in the Bits column ap- 
peared as updates to previous bits. Bits that were similar in nature are also cross- 
referenced. And the index makes it even easier to find those qukk facts that 
eliminate a lot of whee] re-inventing. 

■ TheTr@ns@ctor 1541 ROM Upgrades, $59.95 (US/C) 

You can burn your own usingthe ROM dump hie on Transactor Disk *]3, or you 
can get a set from us. There are 2 ROMs per set, and they fix not only the SAVE© 
bug, but a number ol other bugs too (as described in PA. Slaymaker's article, Vol 
7, Issue 02). Remember, if SAVE@ is about to fail on you^ then Scratch and Save 



may just clobber you too. This hasn't been proven 100%. but these ROMs wilj 
eliminate any possibilities short of deliberately causing them (ie, allocating or 
opening direct access buffers before the Save), 



■ The Micro Sleuth: C64/1541 Test Cartridge, $89,95 (US), $129.95 (Cdn] 
This cartridge, designed by Brian Steele (a service technician for several schools 
in southern Ontario), will test the RAM of a C64 even if the machine is too sick to 
run a program' The cartridge takes complete control of the machine. It tests all 
RAM in one mode, all ROM in another mode, and puts up a menu with the 
following choices: 

1) Check drive speed 

2) Check drive alignment 

3) 1541 Serial test 

4) C64 serial lest 

5) Joystick port 1 test 

6) Joystick port 2 lest 
7] Cassette port test 
8] User port test 

A second board, that plugs onto the User Port, contains 8 LEDs that lets you zero 
in on the faulty chip. Complete with manual. 

■ Inner Space Anthology S14.95 (US/C) 

This is our ever popular Complete Commodore Inner ^ce Acitholi^, Even 
after a year and a half, we still get inquiries about its contents, Briefly, The 
Anthology is a reference book - it has no "reading" material (ie, "paragraphs"), 
!n 122 compact pages, there are memory maps for 5 CBM computers, 3 Disk 
Drives, and maps of COMAL; summaries of BASIC commands. Assembler and 
MLM commands, and Wordprocessor and Spreadsheet commands. Machine 
Language codes and modes are summarized, as well as entry points to ROM 
routines. There are sections on Music, Graphics, Network and BBS phone 
numbers, Computer Clubs, Hardware, unit-to-unit conversions, plus much 
more. . . about 2.5 million characters total! 

■ AXIOOO Amiga 1 MEG RAM Box 3729,00(+$100SSH] (US), 

S1035.O0( + $25S&H)(Cdn) 

■ AX2000Amiga2MEGRAMBox£899.00(-FS100S&H](US), 

S1276,0O(+S25S&H)(Cdn) 
The AX2000 adds 2 Megabytes of ''fast" RAM to the Amiga, allowing more tasks 
lo run in the system at once, or for use as a fast RAM-drive. The unit plugs into 
the expansion connector on the side of the Amiga and duplicates the connector 
for other devices to plug into. Up to two RAM boards may be plugged in tc^ether 
(limited by the Amiga^a power supply), adding 4 Megabytes. The box has "aulo- 
conlig". so with Kickstart 1 .2 the RAM will automatically be added to the system 
when it is booted. If you are using Kickstart 1 .0 or 1 . 1 (no auto-config), you can 
use the program included with the AX2O00 to add the memory lo the system, 
and change your startup-sequence to automatically add the memory on power- 
up. Standard expansion bus architecture was used in the design of the AX2000, 
ensuring compalabilily with all peripherals and operating system releases. The 
unobtrusive steel box is the same height and colour as the Amiga, and snugs up 
to the side without taking up much extra space. The unit is built tough and comes 
with a 1 year manufacturer warranty. 

This seems to be the most highly-recominended Amiga RAM board, and Ehe first 
one to actually be available, so we're selling it here at The Transactor. You can 
order the AX2000 or the !-Meg AXl 000 from the subscription form in this issue. 
Shipping and Handling lo Ihe USA, is via courrier and includes all customs 
clearance, or you can opt to clear shipments yourself and have it shipped 
"colled^ 



SuperpakLO C64 
Pocket Writer C64 
Pocket Planner C64 
Pocket Filer C64 
Superpakl.O C128 
PocketWriter C128 
Pocket Planner C128 
Pocket Filer C128 



S49.95 (US), 
$29.95 (US), 
$29.95 (US), 
t29.95 (US], 
S59.95 (US), 
$39.95 (US), 
S39.95 (US), 
S39.95 (US). 



S59.95(Cdn 
S39.95(Cdn 
$39.95 (Cdn) 
$39.95 (Cdn) 
S69.95 (Cdn) 
$49.95 (Cdn) 
S49.95 (Cdn) 
$49.95 (Cdn 
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■ Pocket Didionary $14,95 [US], $19.95 (Cdn) 

Version 2,0 of Ihe software trio from Digital Solutions is now in production. The 
new packages include both [he 64 and 128 versions on the same disk. Each 2.0 
Pocket pacltage will sell for $59.95 (US), or SS4.95 (Cdn]. A Superpak will 
include all three for $99,95 (US) or S139.95 (Cdn). The Pocket Dictionary is still 
$14.95 (US), S19.95 fCdnj. However, they won^t be available from us until next 
Issue. 

Version 1.0 is still available, and at terrific prices! The 64 and 128 versions still 
come in separate packages, but the real deal is the special price for ail three. The 
C64 Superpak is $49.95 (USjor $59.95 (Cdn). CI 28 Superpaksare SS9.95 (US) or 
$69,95 (Cdn). To top it off, well throw in the Pocket Dictionary program for free! 
If you average the price of all four, it comes to less than the price of two! 

■ TheTraijsBASIC Disk S9.95 (US/Q 

This is the complete collection of every TransBASIC module ever published up to 
Volume 7. Issue 1 . There are over 1 20 commands at your disposal . You pick the 
ones you want to use, and tn any combination! It's so simple that a summary of 
instructions fits right on the disk label. The manual describes each of the 
commands, plus how to write your own commands. 

■ ^per Kit 1541 $29.95 (US), $39.95 (Cdn) 

Super Kit is, quite simply, the best disk file utility there is. Mo more bsing those 
valuable copy-protected originals (like what's happened to me twice too many 
times). So far we've shipped over 600 Super Kits and orders continue to pour in. 



■ Gnome Speed Compiler $59.95 (US), $69.95 (Cdn 
This compiler is for BASIC 7,0 on the Commodore 128. 



■ Gnome Kit Utility $39.95 (US), $49.95 (Cdn) 

Gnome Ki! is a Commodore 128 utility with enhancements for the BASIC editor 
(like Trace, Find, Renumber, Delete, Auto, etc) as well as enhanced monitoi 
commands, and floppy disk monitor functions. 

Transactor Disks, Transaclor Back Issues, and Microfkihe 

All issues of The Transactor from Volume 4 Issue 01 forward are tkiw available 
on microfiche. According to Computrex, our fiche manufacturer, the strips are 
the "popular 98 page size'', so they should be compatible with every fiche reader. 
Some issue are ONLY available on microfiche- these are mari^ed "MF only". The 
other issues are available in both paper and fiche. Don't check both boxes for 
these unless you want both the paper version AND the microfiche slice for the 
same issue. 

To keep things simple, the price of Transactor Microfiche is the same a.s 
magazines, with one exception, A $\r\i^k back issue will be $4.50 (US/C| and 
subscriptions are $15,00 (US/Q. The exception? A complete set of 1 8 (Volumes 
4, 5, and 6) will cost just $39,95 (US/QI 

This list also shows the "themes" of each issue. "Theme issues'' didn't start until 
Volume 5, Issue 01 . The Transactor Disk *1 contains all program from Volume 4, 
and Disk *2 contains all pmgrams from Volume 5, Issues 1-3. Afterwards there 
is a separate disk for each issue. Disk 8 from The Languages Issue contains 
COMAL 0.14, a soft-loaded, slightly scaled down version of the COMAL 2.0 
cartridge. And Volume 6, Issue 05 published the directories lor Transactor Disks 
lto9. 



Vol. 4, 

Vol 4, 
Vol, 4, 
Vol. 5, 
Vol 5, 
Vol, 5, 
Vol. 5, 
Vol. 5, 
VoL 5, 
Vol. 6, 
Vol. 6, 



Issue 01 
Issue 02 
issue 03 
Issue 01 
Issue 02 
Issue 03 
Issue 04 
Issue 05 
Issue 06 
Issue 01 
Issue 02 



■ Disk I) ■ Vol. 4, Issue 04 - MR only 

■ Disk 1) ■ Vol. 4, Issue 05 - MF only 

■ Disk 1) ■ Vol. 4, Issue 06 - MF only 
Sound and Graphics 

Transition to Machine Language - MF only 
Piracy and Protection - MF only 
Business & Education - MF only 
Hardware & Peripherals 
Aids & Utilities 
More Aids & Utilities 
Networking & Communications 



Disk 1 ) 
Diskl) 
Disk 1 ) 
Disk 2) 
Disk 2) 
Disk 2) 
Disk S) 
Disk 4) 
Disk 5) 
Disk 6) 
Disk 7) 



Vol. 6, Issue 03 -- The Languages 

Vol. 6, Issue 04 - Implementing The Sciences 

VoL 6, Issue 05 - Hardware &. Software Interfacing 

VoL 6, Issue 06 - Real Life Applications 

VoL 7, Issue 01 - ROM / Kernel Routines 

Vol. 7, Issue 02 - Games From The Inside Out 

Vol. 7, Issue 03 - Programming The Chips 

VoL 7, issue 04 - Gizmos and Gadgets 

Vol. 7, Issue 05 - Languages 11 

VoL 7, Issue 06 - Simulations and Modelling 

Vol. 8, Issue 01 - Mathematics 
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I Disk 8) 
I Disk 9) 
Disk 10) 
Diskll) 
Disk 12) 
Disk 13) 
Disk 14) 
Disk 15) 
Disk 16) 
Diskl?) 
Disk 18) 



The following items, compiled by Astrid Kumas, are based on press releases 
recently received from the manufacturers. Please note that product descriptions 
are not the result of evaluation by The Transactor. 

Natloaa] Computer CoDference 19S7 

This announcement is to remind all readers of the National Computer Confer- 
ence (NCCS7), which will be held in McCormick Place, Chicago, IL on June 1 S - 
18, 1987. The National Computer Conference provides a forum where significant 
developments and trends in technology are announced, discussed and dis- 
played. NCC program includes both exhibits and presentations, f^r more 
information contact: 

NCC '87 

AFPIS 

1899 Preston While Dr. 

Reston,VA 22091 

l(80O)NCC'1987 

4040 Drive Internals 

Depending on reader response, a book could soon become available that 
uncovers, for the very first time, all inner details of the Commodore 4040 drive. 
Within this vast tome of knowledge will be found an in depth and documented 
look into the Floppy Disk Controller RAM and ROM, the Interface Processor 
RAM and ROM, plus theor>' on how it all fits tii^ether, A useful book for specific 
occasions. The book is close to completion right now, but reader response is 
required to determine if full production would be worth while. If you are at all 
interested, and would like to be kept informed of the book's progress, then send a 
note today to thQ following address. If the 4040 book is successful, then an 8050, 
8250, 9060 and 9U90wili follow 

Hillaire Gagne 

1074 Webbwood Drive 

Sudbury, Ontario, Canada 

P3C-3B7 

GEOS Programming Guide 

The Opcode Factory will be offering a technical programming guide to GEOS 
during the Spring of 1987. If you are interested in having more information on 
GEOS please send your name, address, and phone number to David Martin in 
care of; 

The OpCode Factory 

1417 South Heron Drive 

Seabrook, Texas, 77586 

New Commodore Business Magazine 

Money Machine is a new Commodore magazine introduced at the last LA 
Commodore Show. It is targeted at Commodore 64, 128 and Amiga owners who 
are using their computers for home applications and/or for small or home 
business management. 
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Money Machine is a bi-monthly marine Ihal retails lot $3.95 US per copy in 
ihe stores, and is distribuled by: 

Redwood Distributing 
P.O. Box 6609 
San Mateo, CA 94403 
{415)579"5506 

Subscriptions are available Irom the publisher at the rate of $16.00 US for six 
issues. Contact: 

PaubVmeyard 

RO. Box 2618 

2142 E. Silver Springs Blvd. 

Ocala, FL 32678 
^ (904)622-1022 

Genealogy Software from ByteWare 

ByteWare has been known for developing genealogy' software for Commodore 
computers. Their product, designed to ease the genealogist s record keeping 
tasks, was originally created for the C-64 Later, versions for Plus/4 and C-l 28 
computers were developed. Most recently, The manufacturer has announced the 
release of the Genealc^ package for the PET computers. Programs in both 4O40 
and 8050 formats are available. 

For more information, sample sheets and prices for various programs, interested 
genealogists should contact: 

ByleWare 

Mapie City Software 

906 West 6th Avenue 

Monmouth, IL 61462 

The MailRooiD v2.1 for the Commodore 64 

Version 2. 1 manges as many one-disk mailrooms as you may need, each with 
up to five distinct mailing lists containing up to 2000 labels indexed by name^ city 
and ZIP code for 30-second retrieval of all matching labels. The user can define 
up to five non-exclusive sub-lists per disk, with up to three mutually-exclusive 
categories, for use in prinlmg labels [in ZIP code order) or indices (by name, city 
or ZIP); select labels from any combination of lists with wild-card {*) search 
parameters; and enter listings first-name-fjrst or last- name-first for first-name-first 
labels. 

The program automatically checks new entries for matching names or ad- 
dresses, allowing instant editing of an existing matching label with automatic 
update of indices and supports wild-card functions for edit and delete oprations 
or simple searches. With a second drive. The MailRoom will automatically 
merge two mailing lists or allow selective mer^ with editing. 

The MailRoom for the C64, $49.95 plus $3.00 shipping and handling; or demo 
disk, $5.00. It Version 2.1 doesn't meet your needs, The DiskWorx wilt 
customize field length, disk capacity, and other features to your specifications for 
an additional $20,00. Specify address to be used for test label when ordering, 
make checks payable to David Shiloh at 

"H^ DiskWorx 

101 IVallley River Way, Suite 155 

Eugene, Oregon 97401 

Spence XP BBS for C64 - S 1 

The Spence XP BBS is a public domain BBS program for the C64, The program 
supports the 1650, Mitey Mo and 1670 modems. Features of the BBS are; 300/ 
1200 baud, O'lOdireclories, message base with l-8caiegories,bullehns. Punter 
and Xmodem protocol, runs in basic with ML routines, selectable drive configu- 
ration as well as online sysop commands. 

Althoughlheprc^ramispublicdomainwecanmailyouacopy with our 18 page 



manual. Send cheque or money order for $10 [Ontario residents add 7% PST) 
payable to ConText Publishing: 

Spence XP BBS 

c/o ConText Publishing 

3092 Danforth Ave. Suite D 

Scarborough Onl, 

MILIBI 

SpeedScript Updated for the C-128 

SpeedPlus-128 from lindon Enterprises converts a C-64 copy of SpeedScript 
3.x into a full-featured 80-column C-12S version with 64K text memory and 
20K erase buffer, all for use in 128 operating mode. The program also adds new 
features to SpeedScript, including justification, 12^value assignable tab, 2- 
column/2-side printing, word wrap to^le, selectable print-out, over 26 print 
commands programmable with up to 16 values each, window screen preview of 
documents for all margins and page lengths, secondary address change to ''0" 
or '7" while printing, insertion of text files within a document, screen display of 
up to 26 help files from a single disk without loss of text in memory, changeable 
command line and screen display character color, and adjustable screen display 
of text for increased typing speed. SpeedPlus-128 comes with two help files: a 
1986-87 calendar and a reference list of ^^eedScript/SpeedPlus commands. 

SpeedPlus-]2S is available by mail order for 529,95 (US), including shipping and 
handling charges, from: 



Lindon Enterprises 
P.O. Box 773 
Elm Grove 
Wl 53122 



Di5k-2-Disk from CCS 



Central Coast Software announces Disk-2-Disk, which transfers C-64/C-I28 
files to and from AmigaDOS. (This disk-lo-disk file transfer ulility transfers SEQ, 
REL and USR files to the Amiga.) 

Disk-2-Disk supports the 1541/4040 and 1570/1571 disk formats including 
1541 'Hippies^ The program converts Commodore PET ASCII to AmigaDOS 
standard ASCII and vice versa. Disk-2-Disk formats 1541 and 1571 diskettes, 
runs under either the Intuition or CLI interfaces, supports AmigaDOS style wild 
cards in file names, provides TYPE and DELETE (Scratch) commands and 
permits renaming of files where file name restrictions occur. 

Disk-2-Disk includes VAUDATE BAM and CHCK Disk utilities as well as a 
BASDIF utility to find and flag dialect differences in BASIC files, 

Disk-2-Disk requires a standard Amiga with an Amiga model 1020 external 
5.25" disk drive, $49.95 US through CCS and Amiga dealers, fx)r further 
information, contact: 

Central Coast Software 

268 Bowie Drive 

Los Osos, CA 93402 

(805)528-4906 

New Interface for C-64/C-128 and IBM PC 

TecTrans-W.Guertzgen is the distributor for a new interface that allows connec- 
tion of C-64/C-128 computers to IBM PC computers, or to any other computer, 
modem or printer with an [^232C interface. The interface, which is called 
98084, is connected to the serial port of the C-64/C-128 and to the RS232C port 
of the IBM computers. The data can be transferred from the C-64/i28 computer 
to the IBM computer or vice versa. 

The interface comes with a 64 KByte buffer divided into a 32 KByte input buffer 
and a 32 KByte output buffer. There are no DIP switches on board - all 
adjustments for the interface are done by commands to an EEPROM into a non- 
volatile memory (the memory is prc^rammable as often as the user likes). 
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■ftchiilcal data: Baud rale. 225 to 57600. Dalabits: 7 or 8. Slopbits: 1 or 2. 
Parily none, even, odd, Handshake hardware or XON/XOFF. Conneclors; IBM 
RS232 (D625 female), Commodore serial conneclor Power supply: from the 
cassette port of the C-64/128 or a separate power supply ($15,00 US - optional). 



The interface package contains all cables to The computers and instructions for 
the user. The price for the product is $149.00 US (CA residents add tax 6.5%, 
shipping charges in U.S. are $4.00 on all orders). More information is available 
from; 

TecTranS' W. Guertzgen 

6925 Rosemcad Blvd, 

San Gabriel, CA 91775 

(818)285-3121 

The MicroliroU 

The Microtroil is the newest product from Slide Mountain Systems, it has been 
described by the manufacturer as a "customizable, real world interface" de- 
signed to work with a C-64 or C-128 (in C-64 mode). 

The Microtroil is both hardware and .software expandable. The Microtroil can be 
used to create home monitor systems, greenhouse control systems, robotics 
systems, automated test equipment^ laboratory test and data gathering systems, 
manufacturing control systems or as an aid in teaching electronics. 

The hardware consists of the main circuit board, a small interface board that 
plugs into the compuJer's cartridge port, and an AC power supply. 

The software consists of a nearly 8K Operating System of Basic and Machine 
language routines, which auto-boots on power up. This program displays all 
input and output info, allows control of input from the keyboard, and is designed 
to link to user generated programs as well Additional software is available on 



disk - MATT'S Microtroil Tools, disk 1, which can be purchased for $5.00 US 
from the manufacturer. 

The Microtroil package includes extensive documentation. II can be ordered 
direct from the factory for S180.00 US plus $5.00 shipping and insurance, 
Microtroil carries a 90-day factory warranty on parts and labour for manufactur- 
ing defects. Payments should be made by cheque, money order, or COD. S.M,S, 
notes that personal cheques will slightly delay delivery. The manufacturer can be 
reached by calling or writing to: 

Slide Mountain Systems 
RO, Box 6481 
Colorado Springs, CO 80934 
(303)449-4783 

Coninkand Center for Commodore computers 

Keiek has announced a Command Center, a space-saving cabinet specially 
designed for the C-64/t28 and 64C computers The Command Center consoli- 
dates a computer two disk drives and a monitor into a compact enclosure, 
keeping all cables hidden, out of sight and reach. Some features of the cabinet 
include a main power control switch eliminating turning on/off all peripherals 
separately, a cooling fan to prevent overheating, and a built-m A£. power strip 
with sui^e protection and line noise filtering. Other options available include a 
cartridge port extension and a modular telephone plug with its own on-line/ off- 
line switch. To order the Command Center, contact: 

Ketek 

P.O. Box 203 

Oakdale, Iowa 52319 

For fast service, call ]-800'6264582 toll free. In Iowa call 319 338-7123, 




Converts C64/C128 Files to the Amiga! 



DISK-8-DISK^" from Central Coast Software 
makes it easy and convenient to transfer C64/C12S 
files to and from the Amiga, DISK-2-DISK programs 
the Amiga model 1020 external 5.25" disk drive to 
read and v^rite 1541/4040 and 1570/1571 disk 
formats including 1541 "flipples". You can even 
format a 1541 or 1571 diskette on your Amiga! 

DISK-2-DISK converts Commodore/PET ASCII to 
AmigaDOS standard ASCII and vice versa. Use 
DISK-2-DISK to transfer word processing text files 
(such as PaperClfp, SpeedScript and Pocket Whter) 
to and from the Amiga for use v^ith popular 
Amiga word processors. 



DISK-8-DISK includes a utility to find and flag 
dialect differences between Commodore Basic and 
Amiga Basic fifes. 

DISK-8-DISK includes VALIDATE BAM and CHECK 
DISK utilities. VALIDATE BAM verities the directory 
structure of the 1541/1571 diskette. CHECK DISK 
reads every block of a 1541/1571 diskette to detect 
diskette errors. 

DISK-2-0ISK sells for $49.95 plus S3 shipping 
and handling, CA residents add 6% sales tax. 
Telephone orders welcome. Dealer inquires invited. 
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268 Bowie Drive, Los Osos, CA 93402 805 / 528-4906 

flmigiLOOS. Cofrnnoflofe-fliniga. Inc.. Piotjaifl. BaHenes l^^cludeO Pochel Wnler. Diq^t^l S&lutioiis. inc , DISK^J^DISK Central Coagi Software 
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Lincoln College 
Commodore Computer Camp 

with 

JIM BUTTERFIELD 

and other experts 

July 19-25, 1987 

Topics include: 

• Amiga 

• C-128 

• Robotics 

• Telecomputing 

• Additional selected topics 

For lurther information, contact: 

Otiice of Continuing Education 
Lincoln College 
300 Keokuk 
Lincoln. IL 62656 
217/732-3155 



EXPAND YOUR AMIGA^ 

mmniiMiLLV 

{No 3old«ring} 

BY ONE MEGABYTE ! 

(1 .OOOK or 1 .000.000 Byles) 



With the 
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The BEST Internal RAM expansion. 

One Megabyte of FAST Auto-Conrig RAM. 

No Wart States, 

Battery Backed-Up Clock/Calendar Chip. 

Compatible with Sidecar'", 

Compatible with Most other External RAM. 

One Year Warranty. 



led 



$595.00 



Can-vji^n FiMdII 



Canadian DtsiTibulor 

DKsifiNTF.cii Business Systems Inc- 

0304 850 Burrard Street 

Vancouver BC V6Z2J1 crttod Cheque o. mo 

(604) 669 1B55 CMer Enqo.rwt Inviiad 
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2 MEG RAN EXPANSION 

Comspccs second generation AX20(K» 

RVM ROARIX 

Sultwarv dcvvlopeis woridwide 

have fvrn usinf^ il for over a 

year Now so can tfou. 

The AX2(K>0 pnivides 'fast" 

RAM. iiiv)nii>x>u more r(H>m 

for prK>firam and data 

stunifie, faster pri>jlram 

execution and feuvr time- 

a)nsuming di&k accesses. 

The/V\2nonpn)videsafull 

2 Mejiabyles ul mem*ir>' 

now. 

The AX2nuti is fully 

compatible with atl 

standard Amijja phkIucLs, 

Some hf>ards aren't. 

TheAX20UUisauto 

confiflurinC'^ AH wu dn 

isplu^it jntoyuurAmJUa 

and turn it on, Nothinji 

else ib needed. 

Full "pass thmujlh" 
allnus fureuniplete 
peripheral expansion, 
nil even sunive a 
"soft" rt'scl. 

Aniftlsa a'^iiUnJ (rjJ^m;irk 




HARD DISK 

Finafly; a hard disk driw for the 

- Amifti made \\\ Ihe same exaclinft 

stand^irdsas the AX2(KK). It runs 

on evvn vnltafle fn»m 95 lo 26(» 

Wiib. Il uses 50 or 60 Hz. Its 

availahle simply as a SCSI 

host adjptur. J SCSI hnst 

adaptor and cuntn>ller. or 

as a complete 20 Men. 

hanJ drive- hi fact the 

machine accepts hard 

drives starting from 10 

Me^ jnd up. The hard 

drix-e can be combined 

with Ihe \\2lH)ntc» 

provide up to 8 McH of 

RA.M memiirv'. Adaptahilitv 

isthedefinition<>fComspecs 

ne^^■ hard disk drive. 

Hut the h;jrd disk is mna- than 

adaptable. It comes standard 

with fcatun;s >nu wm\ Mion 

furgL't. A huilt-in p<*wer supply 

(lixvs the Amiga an 

additional 2 amps of necessar>' 

power for use with peripherals. 

It buffers the Amiga expansion bus. 

gninjl the computer KMer flexihilih 

It comes with a buill-jn SCSI p<irt. The 

cltwrk calendar has a batter>' back-up. 

And nU'itursi* il'sautii-cnnlijluriiig. 
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